MALNIAIN ITT RKiCitar wawe « 


. thru 22 
ic! 1 * THIS IS A COPYRIGHTED PROGRAM, COPYRIGHT 1973 BY VARIAN DATA MACHINESOS 00001 . 
es | 05 00002 
3k V.D.M. PART NO, 92L0107-035E , 05 00003 
a k | 05 00004 
5 k RELEASED 9 4 05 00005 _ 
6 05 00006 
7 * 73/620 REAL TIME CLOCK TEST | - 05 00007 
8 k . . 05 00008 
5 05 00009 — 
10 »* REEK KAKKEK x * KKK KER * xk KRKKK 05 00010 
11 * * x * x * * * * kk kk &* 05 vd011 
12 * * x * * * * te * kkk oR 05 0001e . 
13 * Lt ee, ee 2 * tk OR OR RR 05 00013 - | 
: 14 * x * * KaKKK * x * * x % 05 00014 
ef ae eager gn ge gg egg ge ge eo oe ONO geo , 
i 16 * * k RKEKK & k KKKKE k kkk ok Kk KKKKS 05 00016 
17 * 05 00017 
18 * 05 00018 
19 « aX*k Ox RKKKK KKK 8 KEEN RHEKEK KKK KKKKK 0S 00019 
20 a x % x * ze x * * % * 05 00020 
el x * * * *x * a * * * * 05 00021 
2e * * e x * wk * KK * * 05 00022 
es x x * a * x * * * "% x 05 00023 
a4 x * a & * n * tk k * ® * 05 00024 i 
e5 * KKK KKAKE RERKK KKK OR * * RR HR OR 05 00025 
26 * 05 00026 
eT? * 05 00027 
28 x THIS TEST PROGRAM IS PART OF THE MAINTAIN III 05 00028 
29 * TEST PROGRAM SYSTEM . 05 00029 
30 * oe 05 00030 
: 31 * . Ae . 05 00031. 
| 3e x x 05 00032 
ee gee re ae ee RRR I gt ee Ee a Yoga Sey eR ee a ee 05 00033 : 
34 FOCI IOIIOIIOII IIIT TOO OOOIOO TTT TOO OTT ATAT ARIAS SAS I IAS IAADS 00034 . na 
35 * *05 00035 


73/620 REAL LOCK TEST.PROGRAM *05 00036 


37% ! | #05 00037 7 
. 38.8 73 AND 620/F3 VARIABLE INTERVAL INTERRUPT, MEMORY OVERFLOW *05 00038 ae 
39 * INTERRUPT, AND READABLE FREE RUNNING COUNTER *05 00039 © 
- 40 8 | ARE EXERCISED *05 00040 I. 
ye 41 * eeurty L AND 622/13 INTERVAL INTERRUPT AND MEMORY OVERFLOW *05 00041 
mas ae Ge * INTERRUPT ARE EXERCISED : #05 00042. 
ty a ae a3 e. NOTE: NO SOFTWARE TIMING CHECKS ARE MADE, #05 000435 
> ar eee _ 44 -ame..’ : *05 00044. 
nee GSIRWR kA ARAKRRRAKRAHKENNERERAERAWRERRERRRRRRKEREERERRRKERARERERRRRERRRERERRROS 00045. |. 
¢ _ Ae 05 00047. : 
pieee _ ee | | | 0500048 
ae rom FOI IOI III IO IR 05 00049. | 
— 50 x x 05 00050 7 
| * AREAS RESERVEO BY EXECUTIVE x _ 05 00051 at 
pee | , RHR HEIR HIRE REE IRE | & 05 00052. 2 
_ ae 05 00053 . 
eat ane } he 05 00054 / 
ORG 0 05 00055. 
JMP EXECUTIVE | 05 00056 
ORG 040 05 00057 
JMPM © POWER DOWN ROUTINE tg * s . : 05 00058 
59 * JMP POWER UP ROUTINE » 05 00059 
60 * NOTE: THE TEST EXECUTIVE ALSO RESERVES SOTINES 0400 TO Bary 05 00060 
61 * FOR A INTER TABLE TO STANDARD ROUTI AS AN A 05 00061 
62 * FOR EXECUTIVE DATA. ALL TEST PROGRAMS aOR INE WITH THE 05 00062 
63 * EXECUTIVE MUST PRESERVE THIS BLOCK. 05 00063 
| 64 *& STANDARD ROUTIN WILL BE CALLED LY Uo. 05 00064 
| | | 65 * THIS TABLE | i ae. , 05 00065 
ij . 06 *& ; ane : 05 00066. _. 
@ 67 *® = ee 05 00067 
| 68 * | 05 00068 
69 x 05 00069. 
2 70 & ae ae . oo os 05 00070 °: 
000400 TW ORG 0400 = . . 0S 00071 
000400 72 OUTA BSS i : ~ QUTPUT ONE CHAR ROUTINE. 05 00072 
00401 B BSS 1 QUTPU WO CHA U . 05 00073 
000402 74 OUTC BSS 1 OUTPUT CR/LF ROUTINE 05 00074 
000403 75 OuTD BSS to OUTPUT MESSAGE ROUTINE 05 00075 a 
100404 T BSS i OUTPUT OCTAL WORD ROUTINE - 05 00076 
000405 TT QUTF BSS 1 OUTPUT OCTAL ADDR ROUTINE | a 05 00077. 
000406 — 78 OQUTG BSS 1 OUTPUT ERROR MSG ROUTINE is —6- 05. 00078 
é 000407 q UTH BSS 1 OUTPUT CONTROL CHAR Y UTIN 5 00079 
; 000410 80 INPA BSS j INPUT ONE CHAR ROUTINE 05 00080 
F 000411 81 INPB BSS 1 INPUT AND PRINT ONE CHAR ROUTINE 05 90081 
; gy 000412 | NPC BSS i INPUT ONE CHAR EDITED | ROUTINE 05 00082 
Fx 000413 . 83 INPD 88S 1 INPUT ONE ALPHA CHAR | ROUTINE 0S 000853 
000414 me INPE 88S i INPUT TWO ALPHA CHAR | ROUTINE 05 00084 
000415 NP BSS i INPU COMMA/PE D MINA N ROUTI 05 00085. i 
000416 . me INPG 6SS 1 INPUT OCTAL NUMBER ROUTINE 05 00086 | 
000417 . 87 TUUT BSS. 1 TIMEOUT . ROUTINE 05 00087 
000420 =. | KY i TIME DELAY |. ) a ; 05 00088 : 
000424 89 SswT BSS 1 -- STANDARD SENSE. SWITCH ROUTINE | fe °05 00089 
1 000422 . 90 SLWE BSS ° 1> ee, LOWEST WORD USED BY EXEC : 05 90090 re: 
{|  0004e3 OT ESZC BSS MEMORY SIZE DETERMINATION ROUTINE ~~~ 05 00091" 
000424 92 SMSM BSS 1 MEMORY SIZE MESSAGE 05 00092 | 
93 * -05 00093 4 
94 e ee ie | gr | 7 “05 00094" | 
000440 95 | ORG . 0440 << yee | 05 00095. 


96 * . 05 00096 


canner gates centnrnteneenrntetnernnetstttntes seem neta sspears enter etatnaenainoneenneatintnaane rasan taser sutentnearunrt seventeenth rset rnnnentennanaetenrnne—sssseneserenesi annnineninemenersrtinusrenaeinnatet wit 
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97 * EXECUTIVE DATA TABLE 05 00097 

Edie | Set | | 0500098 
000440 99 SFLG 1 LOOP ON ERROR FLAG, O=DON'T LOOP 1=L00P 05 00099 : 
000441 100 S$MEM  8SS 1 MEMORY SIZE (HIGHEST AVAIL CORE) 05 00100 

000442 lul $CON SS 1 O=CONSOLE MODE 1=TTY MODE 05 v0101 |... | 
000443 102 BSS 22 | 3 05 00102 a St 
000471 103 $DCT 88S 1 DIGIT COUNTER FOR INPG 05 00103 ies : 

104 * : 05 00106 ff gr 
A00ua7 A 105 RTC EQU 047 05 00105 : CO 
000500 | 107 ORG 0500 05 00107 ‘4 i 
0005V0 001000 A 108 JMP a+7 05 00108 4 
000501 000507 A | : | = 

1 000502 109 PNTR  8S8S .) INDIRECT POINTERS 05 00109 

. 000507 005101 A 110 INCR 1 BIT SIZE DETERMINER 05 00110 

“000510 004260 A 111 LRLA 16 05 00111 
000511 006130 A 112 ERAI 1 05 00112 
000512 000001 A 
000513 001010 A 113 JAZ «+7 05 00113 

} 00514 000522 A | 
000515 006010 A 114 LDAI i8 . 05 00114 
000516 000022 A 
006517 051172 A 115 STA NBIT 18 BITS 05 00115 
000520 001000 A 116 JMP +5 05 00116 

005¢1 000525 A | | ( 
000522 006010 A 117 LDAT 16 | 05 00117 ( 
000523 000020 A , | | 5 
000524 051172 A 118 STA NBIT 16 BITS 05 00118 

000525 002000 A 119 CALL BCNG SET AFFECTED INSTRUCTIONS IN ARITH. 8U8S. 05 00119 
000526 003360 A ; | 7 
000527 100447 A Tel RTCT EXC 04004RTC | : a 05 00121 
000530 100747 A 122 | EXC 0700+RTC INHIBIT VII. - S 4 © ee  €—€ 05 00122 =f: | 
900531 005001 A 123 TZA : 7 7 7 ha | io Oe EB 05. 008238 

“00532 051201 A T2G  ~——— STA—CSFLG™”C”~””””:CORREESECT OVIV~—~=CWFL AG ns 00 |) 0) 
000533 006020 A 125 LOBI 2 05 00125 i 
000534 000002 A : : 

[000535 0u502e1 A Teé BA é ONS 040 TO 04: 05 00126 
000536 006110 A 127. ORAI 0400 INCLUSTVE-OR BIT 8 IN A REG,  05.00827 - 
000537 000400 A | ee a . 
~000540 056000 A 28 STA re 05 00128 
000541 005122 A 129 IBR 05 00129 

- 000542 005021 A 130 TBA | | 05 00130 

“0005435 006140 A 137 SUBT 040 CHECK IF LOC 040 (POWER FAILUE RESTA ~ 0500131 

. 000544 000040 A , : : | a 

“000545 001010 A 132 JAZ x99 INTERRUPT ADDRESSES) 05 00132 
000546 000556 A | } 

000547 005021 A 133 TBA 0S 00133 

1¥’000550 006140 A 134 SUBI 0377 CHECK IF ALL INTERRUPT LOCATIONS SETUP 05 00134 
000551 000377 a oe 
000552 001010 A 135 
000553 000562 A 

"000554 001000 A 136 [ 

000555 000535 A | ee net } oe 

900556 006020 A 137 LDBI 044 JUMP OVER PF/R INTERRUPT ADDRESSES. 05. 00137 
000557 000044 A | | | A 
000560 001000 A 138 JMP RTICT+6 E 05 00138 

—f 000561 000535 A 
000562 010442 A 139 RTC1 & LDA ston CHECK IF CONSOLE M 05 00139° 

| 000563 001010 A 140 JAZ RTCK 05 00140. 

| 000564 000573 A : ee 

000565 002000 A 141 CALLx  OUTC CR/LF 05 00141 
000566 100402 A 

' 000567 006030 A 142 LOXI MES1 WRITE (REAL TIME CLOCK TEST) 0S 00142 

' 00570 003026 A : : 

| 000571 002000 A 143 CALL»  OUTD 05 00143 

| 900572 100403 A | | | 

) 10442 A CK LDA 5 CHECK 5 00144 
600574 001010 A 145 JAZ RTCP 05 00145 
000575 000652 A 

~ 000576 006030 A 146 LOXxT 15 WRITE (COMPUTER 5 00146 
000577 003226 A te oie | 
000600 002000 A 147. CALLx  QUTO | 7 ao | a | 05 00147 | 

WOOGUT BODG0S Re pe en gn che oe en an gee eg ge ee eee Or wey Te we gee ES 
000602 002000 A 148 RTCM CALL* ~~ INPB 05 00148 
000603 100411 A | 

A JMP 5 00149 
000605 000602 A eS : | : | | : 
000606 005012 A 150 TAB Mg : | a i. 3 7 05 00150 |. 
000607 002000 A 151i ~ CALLx OUTC “CR/LFt~‘“‘t‘:*S GS OOTS 
000610 100402 A , a. 
000611 002000 aA 152 CALL* OQUTC CR/LF 05 00152 

f 000612 100402 A a ee : 

Fx. 000613 005021 A 153 TBA | | , 05 00153 
000614 006140 A 154 SUBI 0261 AN 'F' OR V73? 05 00154 
000615 000261 A 
000616 001010 A 155 JAZ RTCN 05 00155 

|__090617 000636 A 7 | 7 

000620 006120 A 156 — ADDI Pe | ~05.00156 
000621 000001 A , | 
000622 001010 : 157 JAZ RTCO 05 00157 
000623 060647 : | 
000624 006140 ; 158 SUBI 2 E 05 00158 : 
000625 000002 A | ele | 
000626 001010 A JAZ RICE WIT - E05 00159. ~~*«| 
000627 000642 A | . 3 ; | 
006030 A 160 LOXT MS16 WRITE CINVALID) 05 00160 


a een 5 ST TEE: ot 


000631 
090632 
000633 
000634 
090635 


000636 
000657 


000640 


000641 
00064e 


003353 
002000 
100405 
001000 
000573 


Q0u5111 
051173 
001000 
000654 
051173 


PP PP Y 


A 
A 
A 
A 
A 


000643 005311 A 
000644 051201 A 


- 000645 001000 A 


je ————— 
rf 000646 001234 A 


000647 051173 A 
100650 001000 A 
Rae, 000654 A 


- 000652 000000 A 175 RIC HLT SET A=0 FOR I, OR A®1 FOR F 05 00175 


MAINTAIN III 


lol 
lod 


163 * 
164 RICN 
165 

166 


167 RICF 
168 
169 
170 


171 * 
172 Rico 
173 


174 * 


CALL* 


JMP 


STA 
JMP 


COMP 
RTCL 


RTICTEST 


SET COMPUTER FLAG FOR 'F! 


SET V77 


FLAG 
CONTINUE 


SET COMPUTER FLAG FOR ‘TI! 


E 
E 
E 
3 
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0S GO161 
05 00162 


“05 00163 
05 00164 
05 00165 
05 00166 


05 00167 
05 00168 
05 00169 
05 00170 


Ao 


05 00171 
05 00172 
05 00173 


05 00174 


A 


ee 


000755 050045— 


000751 000000— 
000752: 
000753 006010 


000754 


100447 


061202 


A 
A 
A 
A 
A 


36 05 00226 
227 RICd _ENTR 05 00227 
228 EXC 0400+RTC INITIALIZE RTC 05 00228 | 

“2a OAL ERAS) Se eS Ones 
230 STA 045 | 05 00230 


eee ae sm i 


000653 051173 A 176 STA COMP SET COMPUTER FLAG FROM REGISTER ENTRY 05 00176 
000654 01044e A 177 RICL LDA $CON CHECK IF CONSOLE MODE 05 00177 
000655 001010 A i7 JAZ RTCe2 0S 00178 
000656 000663 A | | 
000657 006030 A 179 LOXI MESe2 WRITE (1/0 INST. AND INT.. TEST) 0S 00179 - 
000660 903042 A 
000661 002000 A 180 CALL* OUTDO 05 00180 
000662 100403 A | 
182 * FOLLOWING THREE TESTS PERFORM THE CVARTABLE) INTERVAL 05 00182 
183 * INTERRUPT CHECK? 05 00183 
184 «* a 05 00184 
C00663 006010 A 185 RICe2 LDAI 1 ERROR COUNT TO ONE xe 1 xk 05 00185 
600664 000001 A 
fF 000665 051174 A 186 STA ERRC 05 00186 
000666 006010 A 167 ~ LDAL 02000 “SET UP JUMP AND MARK IN INTERRUPT ADORESSESOS 00167 J 
|. 000667 002000 A | — : 4 
000670 050044 A 188 STA 044 05 00188 
000671 050046 A 55 TA 046 05 00189 
000672 006010 A 190 LDAI ERRS STORE LOC. OF ERROR SUBROUTINE AS JUMP ADDROS 00190 
000673 001202 A 
000674 050047 A a1 STA 047 , : 05 00191 =, 
~ 000675 006010 A 192 ‘LDAI RTcC3 LOCATION TO RETURN UPON INTERRUPT 05 00192) 
| 000676 000713 A | i : i 
000677 050045 A g STA 045 05 00193 
000700 006010 A 194 LDAI * 05 00194 
000701 000700 A . : . it 
000702 051171 A 195 STA LOOP SET LOOP ADDRESS 05 00195 __| 
000703 100447 A 196 EXC 0400+RTC INITIALIZE RTC 05 00196 fi 
000704 100147 A 197 EXC 0100+#RTC - ENABLE’ RTC 05 00197 is 
- 000705 006030 A I: LOX 16 ~ @ SEC. WAT 05 00198 
000706 000020 A : 
A TDSC 00199 
000710 002760 A | : 
| 000711 002000 Aa 200 CALL ERRS NO INTERRUPT ERROR 05 00200 
7 000712 001202 A ; | 
202 * ENTRANCE FROM RECEIVING INTERRUPT =~ 7, 05 00202 
1 203 * | < | ; *05.00203 
| 000713 000000 A 204 RTC3  ENTR | | ! AS 05 00204 | 
, 000714 006010 A 205 ~ LDAT OO 00205 ‘ 
| 000715 000714 A | | | 
| 000716 051171 A 206 STA LOOP SET LOOP ADOR 05 00206 
f 000717 100747 A 07 EXC 07004+RTC INHIBIT VII _ 05 00207 
| 000720 006010 A 208 LDAI 2 SET ERROR COUNT 05 00208 
000721 000002 A pve d : | 
0007282 051174 A 205 STA ERRC 05 00209 
000723 006010 A 210 LDAI ERRS IF INTERRUPT ~ GO TO ERRC 05 00210 
000724 001202 A | | 
7 A - | | se : : - ; | 5 00211 
000726 006030 A ete LOXI 8 : 2 SEC. WALT | 05 00212 
000727 000010 A ee = : | pe } : | 2 
| 00 02000 A LL y 0021 | 
000731 0U2760 A | 
f 000732 041174 A e214 INR ERRC ERROR COUNT ke 3 ee 05 00214 
600733 006010 A 215: ~ LDAT = =RTCO LOC. TO RETURN UPON INTERRUPT ~ 05 00215 
fF 000734 000751 A . | er : ; : er 
000735 050045 A 216 STA 045 05 00216 
000736 0U6010 A e217 LDal rs 05 O0ce17. 
0007357 000736 A | | 
000740 051171 A 218 STA LOOP SET LOOP ADDR 05 00218 = 
ff 000741 100647 A XC 06004+RTC INITIALIZE VARIABLE INTERVAL INTERRUPT 05 00219 
te 000742 100347 A 220 EXC 03004¢RTC ENABLE VII AND INHIBIT MOI 05 00220 
| 000743 006030 A 221. LOXI 16 : 05 00221), 
000744 000020 A 
000745 002000 A 2e2 CALL TOSC | 05 00222 
f 000746 002760 A 
| 000747 002000 A e225 ~~ CALL ERRS | : : | 05 00223 
000750 001202 A oe | | 3 = |e | 
2 4  @e5 4 ENTRANCE FROM RECEIVING INTERRUPT 05 00225 


U 


| PAGE 4 nee MAINTAIN III RICTEST eer ee rae 
000756 010442 A 231 LDA $CON CHECK IF CONSOLE. MUDE 05 00231 
000757 001010 A 252 JAZ *>13 05 00232 
000760 000774 A 
000761 011173 A 233 LDA COMP 05 00235 
000762 OU1010 A 234 JAZ +6 05 60234 ___ 
000763 000770 A | 7 
000764 006030 A 235 LOXI MES4 WRITE (VARIABLE) 05 00235 
000765 003074 A. 3 , ome : | tees 
~ 000766 002000 A 236 CALLx  OUTD 05 00236 
1 000767 100403 A | : 
000770 0v6u30 A 237 LDXI MESA TYPE CINTERVAL INTERRUPT) 05 00237 
000771 003101 A : | : : | 
000772 002000 A 238 CALL*  QUTD. , 05 00238 
5 000773 100403 A | | os te ‘ . __ 
a 240 * FOLLOWING TEST PERFORM ‘MEMORY OVERFLOW INTERRUPT CHECK! 05 00240 
2a. x | 05 00241 
242 x | TEST FOR ERROR CODE 4 05 0024e 
000774 041174 A 243 INR ERRC INCR. ERROR COUNT : ee & ee 05 00243 
1000775 006010 A 244 LDAI 040045 _— INCR. AND REPLACE Ane: STORE IN LOC. 044 05 00244 
1000776 040045 A os 
000777 050044 A 245 STA 044 05 00245 
001000 006010 A 246 LDAI RTCS LOC TO RETURN UPON INTERRUPT 05 00246 
001001 001027 A | | 
001002 050047 A 247 STA 047 05 00247 
001003 006010 A 248 LDAI & | 05 00248 
001004 001003 A | : j Ei | 
001005 051171 A 249 STA LOOP SET LOOP ADOR 05 00249 
001006 006010 A 250 LDAI 4 05 00250 
001007 000004 A : 
001010 051174 A 251 STA ERRC SET ERROR COUNT _ 05 00251 
001011 006010 A e252 ‘LOAI 1 SET UP NO, OF TRIES. FOR TEST 4 05 00252 
001012 000001 A | 
001013 051177 A e53 STA CNTL 05 00253 
001014 006010 A 254 RTT4-~ LODAI 037775 SET UP OVERFLOW COUNT 05 00254 
001015 037775 A 
mt > A 045 5 
“001017 100447 A 256 EXC 0400+RTC INITIALIZE RTC 05 00256 . 
001020 100147 A 257 EXC 0100+RTC ENABLE RTC 05 00287 
O010e1 006030 A 258 LDX 16 G SEC. WA 05 00258 
001022 000020 A 7 
001023 002000 A 259 CALL —_-TOSC 05 00259 | 
001024 002760 A - : 
(001025 002000 A 260 CALL ERRS NO INTERRUPT © ERROR 4 05 00260 
001026 001202 A : 
0010e7 000000 A ecbe RTICS  ¥&ENTR i 05 00262 
001030 100147 A 263 EXC 01004RTC ENABLE RTC 05 00263 
001031 100247 A 264 EXC 0200+RTC INHIBIT MOI 05 00264 is 
001032 041174 A 265 INR ERRC ERROR COUNT ee 5 ee 05 00265 __ 
001033 010045 A 266 LDA 045 05 00266 ( 
001034 006140 A 267 SUBI 040001 05 00267 
001035 040001 A 
001036 001010 A 268 JAZ +5 05 00268 
001057 001043 A 
A 
A 
A 


001111 


~001040 100447 C6 EXC O4004RTC 05 00269 
001041 002000 270 CALL ERRS | | 05 00270 
~— 001042 001202 ‘, 
| 001043 O11177 A e771 LDA CNYTL CHECK LF TEST TRIED 50 TIMES cae 05 O0e71 
f 001044 041177 A 272. INR CNTL : : | : | oe 05 00272 | 
' 001045 006140 A 273 SUBI 50 05 00273 
001046 000062 A 
001047 001002 A e274 JAP RTTC 0S 00274 
001050 001056 A 
| A 
001052 000004 A | 
001053 051174 A 276 STA ERRC 05 00276 
001954 001000 A JMP RTTS 5 00e77 
001055 001014 A ; 
001056 041174 A 279 RITC INR ERRC ERROR COUNT xe 6 «x 05 00279 
001057 006010 A F) LOAt ERR I RRUPT ADDRE UBR. 05 00280 
001060 001202 A | | tote 
001061 050047 A 281 STA 047 * _ 0S 00281 
Oid62 006030 A 8 LOXI P) 172 SECOND DELAY 5 00ce8e 
001063 000002 A | 
001064 002000 A 283 CALL TOSC 05 00283 
01065 002760 A | : | | | 
001066 041174 A 284 INR ERRC ERROR COUNT ch =) xx 05 00284 
001067 010045 A 285 LDA. 045 LOCATION 45 MUST BE GREATER THAN 40001 05 00285 
001070 006140 A 286 SUBI 040001 05 00286 
001071 040001 A 
001072 001010 A e287 JAZ RTC6 05 00287 
#001073 001040 A 7 | oo ee ae 
1x 001074 041174 A 288 INR ERRC ERROR 8 CHECK = INHIBIT MOI we 10 ex 05 00288 
001075 006010 A 289 LDAI * ae ze | 05 00289 
> 00 aa) : : 
001077 051171 A 290 STA LOOP SET LOOP ADDR _& 05 00290 
091100 100447-A 291 EXC O4004#RTC INITIALIZE RTC ; 05 00291 
7 | : | —————— — FLA 
001102 037775 A | ‘ 8 
001103 050045 A 293 STA 045 aa ee 05 00293 
( 104 G6010 2 gq LDA RRS N *I-iT]- 8 U RROR 6 ) 0294 
001105 001202 A 
001166 050047 A 295 STA 047 05 00295 
001107 100347 A XC: ) ee 05 00296 
001110 006030 A 297 LOXI. 4 1 SECOND DELAY 05 00297 
000004 A , 


etn 


369 II ICR IO IIIS III III ITO III ITO TOTTI AIA ANID S 00369. 


isis MAINTAIN III RTCTEST PAUL ee | 
001112 002000 A 298 CALL TOSC 05 00298 
001113 002760 A . 
~ 001114 100447 A 299 EXC 0400¢RTC INITIALIZE RTC 05 00299 
001115 010442 A 3y0 LDA $CON 05 00300 
001116 Ouv1010 A 301 JAZ *+6 05 00301 _ 
001117 001124 A | 
001120 046030 A 302 LOXI MESS WRITE MESSAGE MOI 05 00502 
OL Boy Re 0 od ne a en Ee eS eae ee ee en, ee 
001122 O0Uu2000 A 303 CALL* OUTD 05 00303 
001123 1004045 A 
001124 011173 A 304 LDA COMP 05 00304 
| 001125 OuL010 A 305 JAZ RT10 SKIP FREE RUNNING COUNTER CHECK FOR I['S 05 00305 
001126 001234 A 
: S507 ® CHECK FREE RUNNING 05 00307 
. 308 * CHECK CLEAR OPTION OF FREE RUNNING COUNTER 05 003508 ; 
: 309 x CHECK IF FRC INCREMENTING 05 00309 
0011¢7 041174 A 310 INR ERRC ERROR COUNT = 11. ax 11 xx 05 00310 
001130 006010 A 311 LDATI * 05 00311 
001151 001130 A 
001132 051171 A Sie STA LOOP SET LOOP ADOR 05 00312 
001153 100047 A 313 EXC RTC CLEAR FREE RUNNING COUNTER 0S 00313 
001134 102547 A 314 CIA RTC INPUT FREE RUNNING COUNTER TO A 05 00314 
0011535 051175 A 315 STA RTSA 05 00315 
001156 006030 A 316 LOXI 2 DELAY 1/2 SEC, 05 00316 
001137 000002 A 
001140 002000 A 317 CALL TOSC 05 00317 
001141 002760 A 
001142 102547 A 318 CIA RTC INPUT FRC TO A 05 00318 
001143 141175 A 319 SUB RTSA IF COUNTER ZERO FRC NOT 05 00319 
001144 002010 A 20 JAZM ERRS INCREMENTING CORRECTLY. 05 00320 
001145 001202 A . 
001146 041174 A 3ei INR ERRC ERROR COUNT ak 12 ee 05 00321 
001147 006010 A 2 LDATI * 05 00322 
001150 001147 A 
001151 051171 A 323 STA LOOP SET LOOP ADDR 05 00323 
~ OO1TSe 100047 A XC C LEAR FRC “05 00324 
001153 102547 A 325 CIA RTC INPUT FRC 05 00325 
001154 001010 A 326 JAZ +4 | 05 00326 
001155 001160 A 
001156 002000 A 3e7 CALL ERRS 05 00327 
001157 001202 A 
Q0011600 010442 A 28 RIC9 LDA $CON EST IF CONTINUE MODE. 05 00328 | 
f 001161 001010 A 329 JAZ RT10 05 00329 
/.001162 001234 A on 
001163 006030 A 530 LOXI MES6 OUTPUT FRC (TEST COMPLETE) 05 00330 
001164 003142 A 
001165 002000 A 331 CALL« OUTD 05 00331 _ 
001166 100403 A ae eo 
001167 001000 A 332 JMP RT10 05 00332 
001170 001234 A 
a 534 HR RURERENRAERRNREREAENRR EERE AR RRRERERERENERERENRRRERRRERRRRRRERERRRERER ROS 00334 - 
335 * FLAGS, POINTER AND MESSAGE BUFFERS 05 00335 
be 336 REID III III III IOI IOI IOI E05 00336 
001171 000000 A 337 LUOP DATA 0 ADDRESS FOR LOOPING ON ERRORS 05 00337 
001172 000000 A 338 NBIT DATA 05 00338 
001173 000000 A 339 COmP DATA 0 05 00339 
001174 000000 A 40 ERRC DATA 0 05 00340 | 
001175 000000 A 341 RTSA DATA 0 . -05 00341 
001176 000000 A 342 TMSV DATA 0 TEMP. STORAGE . ein 05 00342 | 
| 001177 000000 A 343 CNTL DATA 0 05 003453 E 
; 001200 000000 A 344 PINT DATA 0 05 00344 > 
1 001201 000000 A 345 FFLG DATA 0 E 05 00345 || 
ye 347 ener eRe T CA eereheeers Ce peeqee rene Ree neRener sar Seeds SNe tera hear e ee eee ee 00347 
| 4 348 * ) : | *05 00348 
| 349 ® ERROR SUBROUTINE ENTRANCE *05 00349 . 
550 * *05 00350 
SSL HII ITI IK III IIR IRI RIOT IO III IRI IKI REE EE REKEEKKEKKOS 003551 
001202 000000 A 352 ERRS ~~ ENTR 05 00352 _ 
001203 100447 A 353 © EXC 0400¢RTC INITIALIZE RIC 05 00353 
354 «* ~ SET UP ERROR VOLATILE REGISTERS. 05 00354 
001204 Oe2lede A 355 LOB ERRS B = LOCATION INTERRUPTED FROM, 05 00355 
001205 005004 A 356 TZX . 05 00356 
001206 011174 A 357 LDA ERRC A = ERROR CODE NUMBER | 0S 00357 
| 001207 051212 A 358 STA «+3 05 00358 
601210 002000 A 359 CALL* SSWT, 00, CERRP)*,RTCT, (LOOP) = 05 00359 
F 001211 100421 A : e 6 
001212 000000 A et 
001213 101220 A ; 
001214 000527 A 
001215 101171 A 
q 001216 001000 A 360 JMP RTCL (05 00560” 
Pe 001217 000654 A. 7 ; ; . %; . a 
[__001220 000000 A 361 ERRP — ENTR . ot ea 05 00361. 
00feel 006030 A 36e LOX! MES3 WRITE ERROR MESSAGE | 05 0036e 
0Ol222 003065 A . _ 
001223 002000 A 363 CALL* OUTD 05 00563. 
O0Lee2d 100403 A € oo 
-001225 011174 A 364 LDA  ERRC © 05 00364. 
001226 002000 A 365 CALL*« OUTE 05 00365 
OOLee7 100404 A a 
001230 0V2000 A 366 CALL* OUTC CR/LF 05 003566 
001231 10040e A | i : | ae —s 
001032 001000 A 36% SMP ERR 0567 
001233 101220 A 


natn emanate tenn ot et NRTA SNA Pn SLR RR A rs es AeNRORtNRN A et eRBER 
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370 * | Pe tae Gp, ht . *05 00370 
S571 * THE OPERATOR IS REQUESTED TO INPUT HARDWARE SETUP . *05 00571 
Te * *05 09372 
373 KUERENERERERE SEREKRERRER PEND ERHER KR EA TARAERERDRERERDR AREA WEARER ERNE EROS 00373 | 
001254 005001 A 374 RILV0 TZA — CLEAR PRINT FLAG = 05. 00374 
001235 051200 75 STA PINT eet “ie 05 900575 
001256 010442 376 LDA $CON : CHECK IF CONSOLE MODE. 05 00376 
001237 001010 377 JAZ RT13. ; . 05 00377 
001240 00130e . é 
001241 002000 378 CALL* OUTC CR/LF . . 05 00378 
£.0901242 100402 eee ee aes 
001243 011173 379 LDA COMP 7 a ee 05 00379 . 
001244 001010 He 


380 JAZ e415 A = 4 05 00380 


WRITE CINPUT FRO INCREMENTS PER SEC) 


#001246 006030 361 LOX! MES7 
(01247 003161 


A 

A 

A 

A 

A 

A 

A 

A 
001245 001263 A | 

A 05 00381 

f | 

A 

A 

A 

A 

A 

A 


/ 001250 002000 382 CALL* OUTD a 05 00382 
N01251 100403 | | 3 | ee x ee 
b01252 002000 383 CALL IPoc - INPUT DECIMAL. NUMBER (DOUBLE PRECISION) 05 00383 
101253 002376 : a | ee ee ee ne oe | | 
001254 052345 304 STA FROM 05 00384 
001255 062346 385 STB FRCM+1 05 00385 
386 * COMPUTE INTERUPTS PER MIN | 05 00386 a 
Ss S87 ®& THESE WILL BE USED LATER IN COMPUTING ELAPSED TIME ay 0S 00387 ae 
001256 002000 A 388 CALL XDIM,D60- race oe on 7 05 00388 i 
001257 003441 A } Z he at 7 : aos — | : 
"001260 002373 A 
001261 052363 A 389 STA | IFM | 05 00389 
001262 062364 A 390 | STB IFM+1 | | | 05 00390 
001263 006030 A MES8@ WRITE CINPUT BASIC INTERUPTS PER SEC) — | 00391 
901264 003203 A 7 : a so tee oO ae 
-001265 002000 A 392 CALL« ouTo eae Lite wndin pe on 0S 00392 
001266 100403 A | : 
001267 002000 A 393 CALL IPDC 05 00393 
001270 002376 A , | 
- 001271 052347 A 94° ~ STA vit ~~ .NF CYMAL NU e (DOUBLE PRECISTO! 5500394 
001272 062350 A 395. | STB VIIF +! | | ear ee 0598 sy 
901273 002000 A 396 CALL XDIM,D60 a 7 a ae eo 05 0039 
O0ie74 003441 A 
001275 002373 A 
001276 052365 A 397 STA LVM 05 00397 
7901277 062366 A IVM+i 7 ace | “ee — «G 03! 
901300 001000 A 399 JMP Att : BGN INTERRUPT TIMING TEST 05 00399 
/ 001301 0013535 A. . ae 
DO130e O111735 A 400 RTI3 ~~ ve COMP CONSOLE MODE. °°” aaa: 00400 
001303 001010 A 401 AZ x+13 00401 ; 
001304 001320 A a 
001305 005001 A 402 TZA pif 05 00402 | 
| 001306 005002 A 403 TZB : 05 00403 ~~ ft .@ 
001307 005004 A 404 TZX 05 00404 hi 
001310 000020 A 405 ~ HLT 020 5S 0040 Me 
| 001311 052345 A 406. STA FRCM INPUT IN A-AND B REG. FRC INCR IN MICROSEC, 05 00406 7 
' 001312 062346 A 407 > STB FRCM+14 (DOUBLE=PRECISION) . COCTAL) hi 05 00407 
001313 002000 A 408 CALL XDIM,D60 OMPUTE I RUPTSS PER M 05 00408 
001314 003441 A | _ oe 
001315 002373 A Y 
DOL3i6 052363 A 409 STA IFM | 05 0040 
001317 062364 A 410 STB IFM+4 : : 3 05 00410 
001320 005004 A 411 TZXx | oe 05 00411 
“0013e1 005001 A 4fe TZA 05 0041e 
' 001322 0v5002 A 413 TZB 05 00413 
| 001323 000021 A 414 HLT 021 | 05 00414 
} 601324 052347 A 41* STA VIIF INPUT IN A AND B REG. VIT SOURCE FREQ. 05 00415 
' 01325 062350 A 416 STB VIIF +1 IN HZ. IN DOUBLE PRECISION cOCTALD 05 00416 
101326 002000 A 417 CALL XDIM,D60 COMPUTE INTERUPTS PER MIN 05 00417 
DOL3e7 003441 A 
001340 002373 A . 
001331 052365 A 418 STA IVM 05 00418 
001332 062366 A 419 °° °»}°»°»& STB IivM+i—si“‘(a‘i‘a : | 05 00419 


001333 001000 A fee JMP IT} —BGN INTERUPT TIMING TEST ; a 05S 00420 
001334 001335 A : a 
| MTITITITLI Te Le Le E 0042e 


423 x *05 00425 
424 x INTERUPT Lesa JEST . 05 00424 
e> * *05 00425 
- 426 JO ICICI IO IOGIIOIORI OIG IOC IO IOOISEIIOIIOOIO OIE IOTOTI STI IIIT S 00426 

001335 010442 A 427 ITT LDA | $CON CONSOLE MODE? -! 05 00427 ; 

| 001356 001010 A 428 JAZ Ii IF SO, BRANCH 05 00428 
001337 001506 A 
001340 002000 A 429 CALL* OUTC CR/LF 05 00429 

B 001341 100402 A — “ 2s . 

1. 001342 006030 A 430 — LDOXI = IML . ; a, ee a . 05 00430 
“001343 003234 A ae : ba: = 7 | , 
001344 002000 A 431 CALL* OUTD IDENTIFY TEST . 05 00431 
001345 100403 A 
001346 012000 A 432 LDA 1151 INIT TTY DEV ADDRESS 05 00432 ee 
(001347 006150 A 433 ANAI  ~=—-: 0177700 < a . 05 00433 
001350 177700 A- . , | ae oS ee ee _ 

001351 117000 I 434 ORA* $STTY bo vase - ane ees ee y 05 00434 
001352 052000 A 435 STA T1151 05 00435 
001353 006010 A 436 LOAT i | 05 00436 

F 001354 000001 A | 

001355 052362 A . ~~ INTT TZE Ft I L “05 00437 °»&=& 
001356 011173 A 438 LDA COMP SEE IF THERE IS A CHOICE 0S 00438 

1 - 001357 001010 A 


439 . JAZ ae IF NOT, SKIP THE QUESTIONS : 05 00439 


0013600 001417 


001361 006030 
0013602 003251 
001363 002000 
0901364 100405 
001365 OQu2evu00 
001366 002576 
001367 062362 
001370 0UA030 
091371 00326e 
001372 002000 
001373 100403 
001374 Qu2000 


001375 002576 


P44 


) 


001376 0623575 


001377 0v1020 
f poi400 001403 


D01401 061000 
DO1a0e 001405 
001403 006020 
0014U4 000012 
01405 062352 
101406 001010 
p01407 OV1412 
001410 Ov1v00 
001411 001467 
001412 0uS021 
001413 006140 


1 001414 010000 


001415 001002 
001416 001467 
091417 006030 
001420 003274 


lO01det 002000 
| 901422 100403 


|. 001423 002000 


001424 002376 
001425 005311 


| 001426 001002 


a 60146 


O0LaTS 


901430 062360 


, 001437 
901440 012345 
601441: 022346 


: 


O0Ta 1 012362 
001432 001010 
901433 001440 
“001434 012347 
001435 022550 
001436 001000 
001442 


001443 003441 
001444 002360 


001445 031173 
001446 001040 
001447 001527 
001450 03236e 
001451 Ou1040 


PPrPpir > Pir PPP >} Pi> YP 


A 
A 
A 
A 


PP PPT LS SPY KP PP KrF SP SPP Kr SPP PP Yr PP y YP P|> 


"01452 O0iS5e7 A 


01453 005004 A 


F 01454 002000 


A 


00145 

001456 
001457 
001460 
001461 
001462 


001465 
001466 


i 001467 


001470 
001471 
001472 


r 001473 


4X,001474 


001475 
(001476 


1 001477 


001500 
001501 
0015v2 
001503 
001564 
001505 


003541 A 
002351 
0V01004 
001526 
007400 
005144 
0V1001 
001475 
001000 
001454 


P|> PPP YP P| Y> YP 


006030 
003515 
002000 
100405 
001000 
0013706 


> Pir YY Pip 


01044e 
001010 
001506 
006030 
003315 
002000 
100405 
001000 
001417 


> Pi > bP Sr \ P| \ 
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440 LOX! IM3 05 00440 
441 CALL*®  OUTD FRC OR VII FOR INTERVAL TIMER 05 00441 
Ge CALL IPDC = ~ 05 v04de ~ a 
443 STB INTT 05 00443 
44a ISCR  LOXI IMG 05 00444 
445 CALL* OUTD REQUEST VII SELECT COUNT 05 00445 
446 CALL IPOC 05 00446 
aa? * IF ZERO, SET TO HARDWARE DEFAULT OF 10 AND SIGNAL THIS WAS 05 00447 
W4a * DONE BY SETTING HDEF TO ZERO 05 00448 
449 STb HDEF SET FLAG APPROPRIATELY 05 00449 
450 JBZ «+4 DEFAULT 0S 00450 
451 IMP a+4 NO DEFAULT | 05 00451 
452 LOBI 10 SET DEFAULT 05 00452 
a53 STB SELC+1 05 00453 | 
454 JAZ “+4 05 00454 
as5 IMP IScP TOO LARGE 05 00455 
456 TBA 05 00456 
457 SuBI 4096 05 00457 
458 JAP ISCP TOO LARGE 05 00458 
459 12 LDXI IMS REQUEST INTERVAL LENGTH 0S 00459 
CALL« U 
461 CALL IPOC 05 00461 
462 DAR 05 00462 
463 JAP_ I3 IF INTERVAL TOO LARGE, TRY AGAIN 05 00463 
4oa STB ILNG 05 00464 
465 * FOLLOWING COMPUTES ‘THE NUMBER OF INTERUPTS PER INTERVAL 05 00465 
66 LDA IN CJHOOSE CORRE TERUPTS PER SEC VALUE 05 00466 
467 JAZ I5 05 00467 
468 LDA VIIF 05 00468 LJ. 
469 LDB VIIF +1 05 00469 =f 
470 JMP 16 05 00470 oo 
5 LDA FROM 05 00471 
LOB FRCM+4 | 05 00472 
6 CALL XDIM, ILNG GET INTERUPTS PE RVAL 
75% CHECK TO SEE IF VII SELECT COUNT NEED BE CONSIDERED 05 00474 
475 LDX COMP IS THERE A VII 05 00475 
476 JXZ 1? IF NOT, INTERUPTS/INTERVAL VALUE 18 OK 05 00476 
477 LDX INTT 05 00477 | 
478 JXZ 17 IF FRC IS THE INTERVAL TIMER, NO MOD NEEDEDOS 00478 | 
479 T2x a OTHERWISE, DIVIDE aNTenupTS PER INTERVAL BY0S 00479 
480 18 CALL XOSU,SELC 05 00480 
481 JAN I71 05 00481 - 
482 ROF 05 00482 
483 IXR 7 3 05 00483 
wy Je UT OUT IF DIVISION COP 15 00484 
485 JMP 18 05 00485 
487 » FOLLOWING HANDLES ILLEGAL INPUTS FOR INTERVAL SELECT COUNT 05 00487 — 
488 ISCP LODXI IM6 05 00488 
469 CALL*  OUTD 05 00489 
490 IMP ISCR 05 00490 
491 * a 05 00491 . 
G92 % ROUTINE TO HANDLE INTERVALS WHICH ARE TO LARG 05 00492 
493 * | 05 00493 
494 13 LDA SCON 05 00494 
G95 JAZ Tt 05 00495 
496 _LOXI IM6_ 05 00496 
497 CALL*  OUTD GIVE ERROR MESSAGE 05 00497 
496 IMP I2- GIVE ANOTHER CHANCGI “5 00498 
499 * | | 


05 00499 _ } 


| ice 1 cee 


MAINTAIN LT] 


| 001635 


RICTEST . - 


5u0 * FOLLOWING HANDLES INITIALIZATION WHEM IN CONSOLE MODE 05 00500 
_ S01 * 7 ae 05 00501 | 
001506 005001 A Sve I1 TZA 05 00502 
°. 001567 0u5002 A 503 TZB 05 00503 
001510 005004 A S04— TZx : | 05 v0504 
~ 001511 000022 A 505 HLT 022 05 00505 
- 001512 052362 A 506 STA INTT : 05 00506 
091513 062375 A 507 STB HDEF SET DEFAULT FLAG APPROP, 05 00507 
001514 001020 A 508 JBZ x+G 05 00508 
001515 001520 A 
001516 001000 A 5Uu9 JMP +4 05 00509 
001517 001S2e A ye: 
f 001520 006020 A 510 LDBI 10 SET DEFAULT — 05 00510 
~~, 001521 000012 A | | | 
001522 062552 A 511 STB SELC#+1 05 00511 
001523 072560 A 512 STX ILNG 05 00512 
001524 001000 A 513 JMP 14 0S 00513 
pate. 001431 A 
1 515 » 05 00515 
01526 005042 A 516 171 TXB 05 00516 
001527 062561 A 517 I7 STB IInT 05 00517 
001530 005311 A 518 DAR 05 00518 
001531 001002 A 519 JAP 13 TOO LARGE, IF HIGH HALF NOT ZERO OR NEG 05 00519 
001532 001475 A . | 
001533 005021 A 520 TBA : | CHECK AGAINST SIZE oF THE INTERVAL TIMER 05 00520 : 
001534 006140 A Sel SUBI 037774 Cee 7 ee: 05 00521 
001535 037774 A 
001536 001002 A 522 JAP 13 IF TOO LARGE, REPORT IT 05 00522 
001537 001475 A | 
~ 001540 012361 A 523 LDA LINT 7 : ae | 05 00523 
001541 001010 A 524 JAZ 13 | IF TOO SMALL .CIE ZERO), REPORT IT 05 00524 
001542 001475 A , : , | 
25 * SETUP MOI INTERUPT TO UPDATA (v)I LAP TIME COUNTER 05 00525 
001543 006010 A 526 19 LDAI 040045 STORE INR IN LOC 044 . 05 00526 
001544 040045 A 
001545 050044 A 2 STA 044 ~ 05 00527 
001546 006010 A 528. LDOAL 02000 STORE JMPM IN 046 05 00528 
001547 002000 A : ae 
001550 050046 A o9 STA 046 05 00529 
001551 006010 A 530 LDAI 110 STORE INTERUPT HANDLING SUBROUTINE IN / 04705 00530 
001552 001677 A 
H01553 050047 A S3iL ~ STA Al. - <2. eects ae 00531 
001554 010442 A 532 LDA $CON A TTY? oo05s32 °° ff 
001555 001010 A 533 JAZ 170 a 00533 
001556 001565 A | 
001557 006030 A 534 LOXI IM7 SIGNAL BEGINING OF TEST 05 00534 
001560 003425 A | ee 
001561 0Vv2000 A 535 CALL* OUTD 05 00535) 
001562 100403 A ‘ 
536 * INITIALIZE AND START CLOCKS 05 00536 
901563 100447 A 537 T70 EXC ~ 04004RTC INIT RTC 05 00537 
' 001564 005u01 A 538 TZA 05 00538 
001565 050045 A 539 STA 045 —6©05 «00539 
001566 052355 A 40 STA UFR N L ED ME COUNTER 05 00540 
001567 052354 A 541 STA UVII 05 00541 
001570 052354 A S4e STA LVII 05 00542 
D01571 052356 - 4q STA LFRC 05 00543 
| 001572 012561 A 544 LDA IINT | 05 00544 
| 001573 052357 A 545 STA INXT SET COUNT FOR END OF INTERVAL CHECK 0S 00545 
~ 609574 O1T175 A 546 Tkit LOA + COMP | 00546 
. 001575 001010 A 547 JAZ 1X12 05 00547 
001576 001606 A 
P01577 012375 A ry. LOA HD HARDWARE DEFAULY DESTRED 05 00546 
(01600 001010 A 549 JAZ ae4 YES, SO SKIP SETTING COUNT 05 00549 
01601 001604 A 
ve O1 cA LDA SELC41 5 00550 
001603 103147 A 551 OAR RTC SET INTERVAL SELECT COUNT 05 00551 
001604 100647 A 552 EXC 0600+RTC INIT VII COUNTER 05 00552 
16 100047 A X | LEA C 00553, 
001606 100147 A 354 IX12 ) EXC 01004RTC ENABLE VII 22 05 00554 
S56 * LOOP TILL ABORT BY SS3_ | vos 05 00556 | 
~ OO1607 001400 A SST ITD TSS Re 5 00557. 
| 001610 000527 A | 
001611 002000 a 558 JMPM IUFR UPDATE FRC ELAPSED TIME COUNTER IF NECESSAROS 00558 
O016i2 001742 A | ; | 
: : 559 * CHECK FOR END OF INTERVAL | _ 05 00559. 
001613 022362 A 560 LOB INTT 7 tap ante, | | 05 00560 7 
001614 001020 A 561 JBZ T1414 as 05 00561 | 
| 001615 001634 A oe | 
001616 010045 A S62 LDA 045 GET VII CNT 05 00562 
001617 Oeiedl A 6 LOB FFLE E 05 00563 
, 001620 001020 A 564 | JBZ 114 NOT A v7T : E 05 00564 
001621 001644 A : ; . einai 
“OOTBEE VOB TSO BSB — & 05 00565 
001623 040000 A 
001624 005012 A 566 TAB E 05 00566 
0016, 10045 6 LOA q | i ~ 05 00567 
001626 001020 A 568 JBZ 114 NO OVERFLOW . E 05 00568 
001427 001644 A ’ 
001630 002000 A 56 HANDLE VERFLOW E 05 00569 
001651 001677 A 
001632°001000 a 570 JMP 114 05 00570 » 
“0016353 C01o4g A ; j 
001634 012356 A 571 1141 LDA LFRC . 05 00571 
006150 A S72. ANAT 037777 05 00572 


Pe 
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001636 037777 A | | 
091637 052367 A 573 STA EMFR STORE IN TEMP LOC 05 00573 
691640 102547 A 574 CIA RTC 05 v0574 
001641 122367 a 575 ADD EMFR DO ADD, NO OVERFLOW POSSIBLE 05 00575 
| 00164? 006150 A 576 ANAI 037777 05 00570 ~ 
~ 004643 OS7T777 A i 
001644 142357 A 577 Tia SUB INXT SUBTRACT TARGET NUMBER OF INTERUPTS 05 00577 
001645 0u1004 A 578 JAN 115 IF TOO LOW, INTERVAL NOT UP 05 00578 
091646 OU1775 A 
001647 00614u A 579 SUBI 04 IF CLOSE ENOUGH TO TARGET , TIME UP 05 00579 
001650 0v0004 A _} 
001651 001002 A 580 JAP 115 05 00580 
001652 001775 A 
2 581 * SIGNAL INTERVAL UP 05 00581 — 
a SBbe fk BLINK COSOLE LIGHTS 05 00582 
001653 102577 A 583 1162 CIA 077 05 00583 
(001654 905211 A 584 CPA 05 00584 
1001655 103177 A 585 OAR 077 05 00585 
: 586 * BLINK THE OVERFLOW LIGHT 0S 00586 
1001656 001001 T1161 JOF 117 
"001657 001661 A 
001660 007401 A 588 SOF 05 00588 ; 
| 5389 * COMPUTE NEW TARGET COUNT 0S 00589 
1001661 012357 A 590 117 LDA INXT GET OLD TARGET CNT 05 00590 f 
‘001662 122561 A 591 ADD YINT COMPUTE NEW ONE 05 00591 ! 
001663 006150 A 592 ANAI 037777 MOD COUNTER SIZE 05 00592 
001664 037777 A 
001665 052357 A 593 STA INXT 05 00593 
001666 011201 A 594 LDA FFLG E 0S 00594 
001667 001010 A 595 JAZ I15 NOT A V77 E 05 00595 
"001670 001775 A | 7 | : 
001671 006010 A 596 LDAI 0207 BELL  E— 05 00596 
~ €01672 000207 A 
| 001673 002000 A 597 CALL* OUTA —E 05 00597 
| 001674 100400 A . ‘ 
| 001675 001000 A 598 JMP Ti5 : | 05 00598 =~ = «ify 
(001676 001775 A 7 | 
t 600 * FOLLOWING IS EXECUTED ON MOI INTERUPT 05 00600 
601 * IT UPDATES THE DOUBLE PRECISION II COUNT 05 00601 . uy 
001677 000000 A 602 110 DATA 0 05 00602 | 


603 
604 
605 
606 — 


EXC 0200¢RTC 
T10T 
Ti0T+1 


T10T+e2 


INHIBIT MOI 0S 00603 
- 05 00604. 
05 00605 


; 05 00606 


001700 100247 A 
[7001701 051736 A 
001702 061737 A 
1001703 071740 A 


001704 005004 A 607 TzXx 05 00607 . 
001705 005544 A 608 AOF X SAVE ORIGNAL OVERFLOW CONDITION 05 00608 
| 001706 010045 A 609 LDA 045 05 00609 _ 
f 001707 006150 A 610 ANAI 037777 05 00610 <4 
001710 037777 A 
001711 050045 A 611 STA 045 05 00611 
~ O0171e 010354 A 612 LDA LVIit 05 00612 | 
001713 007400 A 613> ROF 05 00613 


040000 aS 


001715 040000 A 
001716 006150 A 615 XDAX ANATI O77777 


001717 O77777 A 


(001714 006120 A 614 ADDI 05 00614 a 
05 00615 


001720 052354 A 61 05 00616 
001721 012353 A 617 LOA UVII 05 00617 
001722 005511 A 618 AOFA 05 00618 


= C0llet 0seses fA OLSSON O0eta 


| 001724 007400 A 620 ROF 05 00620 | | 

| 001725 001040 A 621 JXZ 1101 05 00621 - q 
{001726 001730 A | 

F (001727 007401 A 622 SOF RESTORE OVERFLOW, IF NEC. 05 00622 . 

| 901730 011736 A 623 T101 LDA Li0T | en Pte is, ee ee 05 00623 | 


[001731 Oei737 A 6e4 LbB 10T+#l © 9500684 


001732 0351740 A 625 LDX T10T+e2 05 00625 
001733 100147 A 626 EXC O0100+RTC ENABLE RTC 05 00626 - 
001754 001000 A er. 110 i. 


SMP x 05 00607 
001735 1u1677 A tr ae 
001736 000000 A 
001757 000000 A 
001740 000000 A | | 
| __001741 000000 A see, 
_S”—SO He hMPOLLOWING IS MANUAL UPDATE OF FRC ELAPSED TIME COUNTER : 05 00630 
001742 000000 A 631 IUFR DATA 0 | | : , 05 00631 
001743 011173 A 632 LOA COMP © Ase 7 = : 05 00632: __ 
[001744 Oululd A 633 Jaze IUFR IF NO FRC, CUT OUT. 05 00633 

001745 101742 A | | 


628 IL0T DATA  07070-0 05 00026 


| 001746. 102547 A 634 CIA RTC 05 00634 | 
#001747 006150 A 635 ANAT 040000 | 05 00635 
1%001750 040000 A : : 3 Les, Z | | | 
001751 001010 A 636 JAZ* IUFR © IF BIT 14 IS ON, TIME TO UPDATE LFRC 05 00636 | : 
i) O1742 A 
001753 005004 A 637 T2x 05 00637 | : 
638 AOF X SAVE OVERFLOW 05 00638 ! 


001754 005544 A 


001764 012355 


05 00646 _ 


. > BSF MOVE DYNAMIC COU ” TOTAL 05 00639 

eS | 001755 007400 A 640 ROF ae sce a 05 00640. | 
; 001756 102547. A 641. CIA RTC GET THE DYNAMIC COUNT 05 00641 | 

001757 Tv0047 A 642 EXC RTC CLEAR THE FRC 05 00642 © 
001760 122356 A 643 ADD LFRC | 05 00643 . ! 
001761 006150 A 644 ANAI 077777 CUT OFF THE SIGN BIT 05 00644. = 
~ O01760 OF7777 A | Se a ak - | 

001763 052356 A 645 STA LFRC 05 00645. 

A 646 LDA UFRC 


PAGF 10 


MAINTAIN ITI RTCTEST | ; 


| 001765 005511 A 647) | | 5 00647 
648 | : STA UF RC “ee ee 7 = 05 00648 


F 001766 052555 ) oe 
001767 007400 649 KOF 05 00649 : 
001770 901040 650 IXL* IUFR | : | 05 00650 


B51 SOF - ORE OVERFLOW Se o0est 


A 
A 
A 
A 

001771 101742 A 

001772 007401 A 

A 
A 


001773 O0U1UV00 A 652 JMP * IUFR | 05 00652 — 
001774 10174e a oe 
59 «FOLLOWING CHECKS FOR ELAPSED TIME READOUT REQUESTS 05 0005a en 2 

001775 010442 A 655 115 LDA SCON 05 00655 

001776 Ovluv10 A 656 JAZ 130 IF_NO TTY, MAKE SPEC CHECK —__ 05 00656 

001777 002207 A | | | 7 

002000 101201 A 657 1151 SEN 020, eed SEE IF A CHATRACTER. AWAITS | ar 05 00657 
4.002001 002004 A eee uae 
902002 001009 A 658 JMP Til IF NOT, LOOP BACK TO REPEAT PREV CHECKS 05 00658 

002003 001607 A De bs 23 | | | 

002004 002000 A 659 CALL* INPB OTHERWISE, GET THE CHARACTER _ 7 05 00659 = 

902005 100411 A : ee ee eee tee ae Oe ene ie ee 

02006 001000 A 660 JMP ° oTGA IF $83 ON, RETURN TO BEQININS OF TEST 05 00660 

002007 001607 A = | as | = | 

002010 005uie A 661 TAB : | 05 00661 

002011 006140 A 662 SuBI ns 05 00662 

Q02012 0u0e40 A 3 | ae | | | 

902013 001010 A 663 JAZ ss T50 ELAPSED TIME WANTED = = . 05 00663 

002014 002033 A | se, See Po 

002015 002000 A 664 _CALL« OUTC CRs/LR come ae ao 05 00664 

002016 100402 A : : | ; 

002017 005021 A 665 TBA : 05 00665 

002020 006140 A 666 SuBI 1 a | 05 00666 

G02021 000322 A : | ae 

002022 001010 A 667 JAZ 170 RESET ELAPSED TIME COUNTERS : ee 05 00667 | 

002023 001563 A 

002024 005021 A 668 TBA 05 00668 

002025 006140 A 669 SUBI "K! 05 00669 ~ 

002026 000313 A | , 


002027 001010 A 70 | Al : | me ~ 05 00670 7 a 
902030 001335 A. : | | ar ee SG agg . e eater : | en. ¢ 
902031 001000 A 671: JMP 1 € Ser IF NONE OF THESE, IGNORE IT - os 05) 0067 
002052 001607 A | 
673 * FOLLOWING COMPUTES ELAPSED TIME AND OUTPUTS IT 05 00673 
674 * DURRING THIS TIME, FREQUENT CALLS: ARE MADE TO ROUTINE ‘IUFR. 05 00674 
aa : : THIS IS N SSARY SINCE A DELAY OF MORE TH -6 SECONDS 5S 00675 
4 | 676 8 BETWEEN CALLS COULD RESULT IN BIT 15 OF THE FRC COUNT. BECOMING 05 00676 
ba 677 * A ONE. SUCH A SITUATION WOULD CAUSE ERRORS.IN FRC ELAPSED 05 00677 
678 * TIME COUNT 05 00678 
679 * | | 05 00679 
002053 002000 A 680 150 JMPM ICOM COMPUE ELAPSED TIMES 05 00680 
002034 002235 A | os 
002055 002000 A 641 CALL* OUTC CR/LF 05 00681 
~—002036 100402 A ) = 
| 902037 011173 A 682 — LDA COMP | , 05 00682 
002040 001010 A 6863 © JAZ IS1 IF NO FRCe SKIP NEXYT 6 -  *< 05 00683 
002041 002114 A | ; 
002042 002000 A 684 JMPM LUFR UPDATE FRC ELAP. TIME CNTR IF NEC. 05 00684 . 
002043 001742 A | | 
002044 006030 A 685 LOXI IM9 05 00685 
Q02045 003334 A } | | | fe 
002046 002000 A 686 CALL* OUTD TYPE 'FRCs ' Ae 05 00686 
~ 002047 100403 A : : , es 
002050 002000 A 687 CALL IUFR CHECK FRC COUNT os 05 00687 
002051 001742 A | 
092052 005001 A 688 TZA | ee ee | ae | 05 00688 
1 002053 022367 A 689 LOB EMFR “GET ELAPSED MIN FOR FRC a 05 00689 
402054 006030 A 690. LOX! BUFO | 2 05 00690 
- 902055 002655 A ie, pete | 
002056 002000 A 691 CALL CONV | 05 00691 
002057 NU2472 A 
002060 006030 A 692 | LOXI BUFO+3 LAST FOUR CHARACTERS 05 00692 
002061 002656 A nee gee 
002062 002000 A 693 | CALL* . OUTD OUT ELAPSED MIN | 05 00693 
002063 100403 A | a ease oS | : a 
002064 002000 A 69 CALL K a JU 5S 00694 
002065 001742 A | 
002066 006030 A 695 LDXI IM10 | . i ah 05 00695 
H02067 003340 A : ae ae 
002070 002000 A 696 CALL* OUTD | QUT 'MIN ! . 05 00696 
002071 100403 A , at | Ce oe | 
002072 002000 A 69 CALL IUFR "HECK FRC COUN 05 00697 
002073 001742 A | 
002074 005001 A 698 TZA | . 05 00698 
£ 002075 022370 A 699 ~ LDB ESFR GET ELAPSED SEC FOR FRC =A 05 00699 
1%.002076 006030 A 700 LOXI BUFO | ; be — 05 00700 
002077 002653 A | , ae. | 7 = 
002100 002000 A O1 CALL CONV. —— | ™ 05 00701 : 
002101 002472 A - of F 
002102 006030 A 7v2 LDOXI BUFO+3 LAST FOUR CHARACTERS 05 00702 
002103 002656 A | oe ee aa & 
002104 002000 A 703 © CALL* OUTD . a | | 05 00703 
002105 100403 A | ‘ed Re | ach : 7 | 
002106 002000 A 04 CALL IUFR CHECK FRC COUNT | -05 00704 
002107 001742 A | 
002110 0v4030 A 705 -LOXI IM11 _—. Pubs — 05-00705 
~O02T11 003343 A 3 | | 2 ee aye a 
002112 002000 A 7u6. CALL* OUTD | QUT '"SEC' AND CR/LF ores 05 00706 


002113 100403 A 


g | A D216 
| 002166 002000 A 
| 002167 001742 A 


: 002245 031173 A 


002155 002656 A 
002156 002000 A 
002157 100403 A 
002160 002000 A 
O0e161 001742 A 
002162 006030 A 
002163 003343 A 
002164 002000 A 
100403 A 


6002170 102547 A 


002171 122356 A 


6002172 006150 A 


002173 O37777 A 
002174 022362 A 
b02175 001020 A 
002176 002200 A 
002177 010045 A 
002200 122361 A 
002201 006150 A 
002202 037777 A 
002203 052357 A 
002204 007400 A 
002205 001000 A 
002206 001607 A 


002207 001100 A 
002210 0022135 A 


I po2211 001000 A 


02212 001607 A 
902000 A 
002214 002235 A 


f 002215 012371 A 748 3 GET MIN/SEC CNT _ : 
VG : me : ; i a 

002217 112372 A 750. ORA  — -ESVI | : ee te 4 | - 05 00750 — 
002220 005012 A 751 TAB | | | op ae 3 | ie 05 00751 

| O0eeeT OTTTTS ATS SRO SOS OTS 

} 002222 001010 A 753 JAZ 1301 | 05 00753 | 
002223 002227 A | : 

| 4012367 A . 3 2 | ae ce 

fF 002225 004246 A 755 LRLA 6 | meee a : a 05 00755. 

j 002226 112370 A_ 756 ORA  _—ESFR © | = = 05 00756 
00eee7 005004 A 757 T301 + TZx a a A a aa «1 
002230 000025 A 758 HLT 023 RETURN ELAPSED TIMES 05 00758. - 
002231 001004 A_ 759 JAN ITT REINIT? 05 00759 - 

H 002252 001335 A ; | Sp ae ae : 

¥, 002233 001000 A 760 JMP 170 Heya 7 ' oo, : 05 00760 | 
002234 001563 A , ' | | —_— ne ‘ 

Tbe ® ~6FOLLOWING COMPUTES ELAPSED TIMES IN MIN AND. SEC 05 0076e | 
002235 000000 A 763 ICOM DATA 0 | : | 0S 00763 | 7 
002236 005001 A 764 TZA | | 05 00764 | 


002237 10e647 A 765, ciB RTC GET CURRENT FRC COUNT 05 00765_ 

/ 002240 062570 A 766 | STB ESFR SAVE IT TEMPORARILY IN ESFR | 05 00766. 
002241 020045 A 767 LOB 045. a ee ee ce ee , | 05 00767. 

“002242 002000 A 768 £CALL  XDAD,UVIT GET CURRENT VII ODOBL PREC CNT 05 00768 


002243 003473 A 
002244 002355 A 


002246 001040 A 


002247 002254 A 


MAINTAIN LII RICTES! rAwL 4, 
< ear an ga a eer an aaa aga a 
002114 002v00 A 707 151 JMPM IUFR 05 00707 
‘f£.002115 Ov1742 A aT frat 
002116 006030 A 708 LOXI IM12 05 00708 
O0E117 003547 A 
v0¢e1e0 OVeu0N0 A 709 CALL* OQUTO 05 v070 ie 
O021e1 1004035 A 
002122 002000 A 710 CALL IUFR CHECK FRC COUNT 05 00710 
002123 OV174e A oa 
Od0eTed4 OVSOOL A 711 TZA 05 00711 
002125 022371 A 712 LOB EMVI GET ELAPSED MIN FOR VII 05 00712 
002126 006030 A 713 LOXI BUFO 05 00713 
002127 0026055 A | : . 
002130 002000 A 714 CALL CONV 05 00714 
002131 OV24T2 A 
F'00e13se 006030 A 715 LOxI BUFO+3 LAST FOUR CHARACTERS 05 00715 
002133 0v2656 A 
002134 002000 A 716 CALL* OUTDO OUTPUT ELAPSED MIN 05 00716 
002135 100403 A : | 
002136 002000 A 717 CALL IUFR CHECK FRC COUNT 0S 00717 
002157 001742 A | 
002140 006030 A TIi8 LDXI IM10 05 00716 
002141 003340 A 
002142 002000 A 719 CALL*  OUTD OUTPUT 'MIN,! 05 00719 
002143 100403 A ae as 
002144 002000 A 720 CALL IUFR CHECK FRC COUNT . | 0S 00720 
002145 001742 A | 7 
002146 005001 A Tel TZA 05 00721 
002147 022572 A Tee LOB ESVI GET ELAPSED SEC 05 00722 
002150 006030 A 723 LOXI BUFO 3 05 00723 
002151 002653 A 
002152 002000 A 724 CALL CONV | 0S 00724 
002153 002472 A 
002154 006030 A Te LOX BUFO+¢3 LA OUR CHARACTER 05 00725 


CALL* OuTD OUTPUT ELAPSED SEC 05 


00726 


727 CALL IUFR CHECK FRC COUNT | = 0S 00727 
CDX) Mii = 05 00726 

729 CALL*® OUTDO OUTPUT ‘SEC ' | , 05 00729 
730 | CALL IUFR CHECK FRC COUNT ‘. .., $e (05 00730 

4 REINIT THE INTERVAL TIMER TARGET CNT ——95 00731 
732 CIA RTC ASSUME FRC THE INT TMR 05 00732 © 
733 ADD LFRC | 05 00733 . 
734 ANAI 037777 So 05 00734 | 
735 LOB INTT IS THE FRC THE INTERVAL TIMER? — 05 00735 | 
736 JBZ 52 TF $0, ALL OK | ra 05 00736 
737) LOA 045 + ELSE, USE VIX __ 05 00737 
736 152. ADD TINT ADD IN INTERUPTS PER INTERVAL 05 00738 
739 ANAI 037777 MOD COUNTER SIZE ~ | 05 00739 
740 STA INXT USE AS NEW TARGWET COUN pine 
741 -ROF RESET OVERFLOW INDICATOR ee 05 00741 
742 JMP Tit | aa. ee 05 00742 
744 * FOLLOWING HANDLES ELAPSED TIME READOUTS IN CONSOLE MODE 05 00744 
745 130 JSS1 «+4 NEED ELAPSED TIME? | _05 00745 
746 JMP OTA 


IF NOT;LOOP BACK ee 05 00746. 


’ 


RWI 


05 00769 


770 JXZ Ici 05 00770. 


002400 052465 A 


PAGE 1i2 _MAINTAIN ILd RivLicgt reetebe git tecep oi! 
; : . ; ‘ 
002250 002000 A 771 CALL  XDIM,SELC+1’ IF VIT, ADJUST FOR SELECT COUNT 05 00771 
002251 003441 A | eer tad sae | 
002252 002552 A ss 
002253 0U5V04 A 772 TZX 7 | 05 v0772 
002254 NGevouU A 773 IC1 CALL XDSU,IVM _ SUB _INCR PER MIN | | 05 00773 
002255 0u3541 a : 7 i 
002256 002365 A 7 | 
002257 001004 A_ 774 JAN IC2 | 05 00774 
002260 Ov22b4 A 
0N2P61 005144 A 775 LXk 05 00775 
{| 002262 001000 A_ 776 JMP Ici 05 00776 
1 002263 002254 A 
002264 002000 A 777 ICe2 CALL KDAOQ,IVM 05 00777 
002265 0034735 A | 
(002266 002565 A 
002267 072571 A 778 STX EMVI SAVE ELAPSED MIN 05 00778 
002270 005004 A_ 779 TZXx 05 00779 
02271 002000 A 780 IC3 CALL XDSU,VIIF 05 00780 
b02272 003541 A | 
802273 002547 A 
002274 001004 A 781 JAN Ic4 05 00781 
002275 002301 A 
002276 005144 A 782 IXR 05 00782 
g02277 001000 A 783 JMP Ic3 05 00783 
002300 Ov2e71 A a e | | 
002301 072372 A 784 IC4 STX ESVI STORE ELAPSED SEC 05 00784 
(002302 011173 A 7865 LDA COMP AN FRC? 0S 00785 
002303 001010 A 786 JAZ® ICOM IF NOT, DONE 05 00786 
002304 102235 A | 
002305 002000 A 787 CALL IUFR . UPDATE FRC ELAP. TIME CNTR, IF NEC eS 00787 f 
(002306 001742 A : | ) ee «ae us 7 | - 
002307 005001 A 788. TZA | a 05 00788 
0e310 022370 A 789 LOB : SFR CURR RC COUN ROM RAGEOS 00789 
002311 002000 A 790 CALL XDAD,UFRC GET DBL PREC TOTAL 05 00790 
002312 003473 A | 
A | , . 
. 002314 005004 A 791 TZX : | 05 00791) 
002315 002000 A 792 ICS CALL XO0SU,IFM $UB INCR PER MIN 05 00792 =| 
a 5 0035471 A 
002317 002363 A 
002320 001004 A 793 JAN IC6 05 00793 
“O0eset 002325 A ae 7 yr 
» 002322 005144 A 794 IXR 05 00794 
902323 001000 A 795 JMP ICS | 05 00795 
002324 002315 A 
002325 002000 A 796 IC6 CALL XDAD, IFM 05 00796 
002326 003473 A cm 
002327 0023563 A wore 
4902330 072367 A 797 STX EMFR STORE ELAP MIN 05 00797), 
"002331 005004 A 798 _ TZx 0S 00798 al! 
.'902332 002000 A 799 IC7 ‘CALL XDSU,FRCM 05 00799 mm 
| 002333 003541 A 
902334 002345 A 2 
002335 001004 A 800 JAN Ic8 05 00800 
002336 002342 A 
002357 005144 A 801 IXR | 05 00801 
002340 001000 A 802 JMP IC? 05 0080e 
| 002341 0023532 A ie _ | ee 
002342 072370 A 803 ICB STX ESFR SAVE ELAPSED SEC Be eee. 05 00803 
002343 001000 A GOOG SMP COM 05 00804 
002344 102235 A | 
002345 000000 A 806 FRCM DATA 0,0 | FRC INCR. PER SEC (DOUBLE PREC.) 05 00806 
{ P02346 000000 A . : 
/ 902347 000000 A 807 VIIF DATA 0,0 VII INTERRUPTS PER SEC (DOUBLE PREC.) 05 00807 
902350 000000 A - 
002357 000000 A 808 SELC DATA 07 0 55° 00606 
002352 000000 A ) 
002353 000000 A 809 UVII DATA 0 UPPER HALF, VII ELAP TIME CNTR 05 00809 
602354 000000 A 610 LVII DATA 0 LOWER HAL 05 00610 
| 002355 000000 A 811 UFRC DATA 0 UPPER HALF, FRC ELAP TIME CNTR 05 00611 
002356 000000 A 812 LFRC DATA 0 LOWER HALF DBL Eaee ee ELAP TIME CNTR 05 00812 
0 UN ND OF WNEX V 5 00813 
002360 000000 A 814 ILNG- DATA 0 INTERVAL LENGTH 05 00614 
002361 000000 a 815 IINT DATA 0 NUMBER OF INTERUPTS PER INTERVAL | 05 00815 
002362 000000 A 816 INTT DATA 0 INTERVAL TIMER, /SFRC, {=VIT | 0S 00816 
| 002363 000000 A 817 IFM DATA 0,0 DBL PREC INCR PER MIN FRC ae 05 00817 
002364 000000 A 
902365 000000 A 818 IVM DATA 0,0 CSL PREG VIT INCR PER MIN “05 00616 
002366 000000 A 
002367 000000 A 819 EMFR DATA 0 TEMP LOC FOR ELAP TIME COMP | 05 00819 | 
Ff. 002370 000000 A 820 ESFR DATA 0 — ; : | 05 00620 
& 002371 000000 A 821 EMVI DATA 0 . | 3 | : 05 00821 
“002372 000000 A 822 ESVI DATA 0 ae : | | 05 00822 | 
PT 002373 000074 A BES 060 DAT RSC‘ OOS ESTC~*Y 
002374 007370 A 824 STTY DATA 07370 | - POINTER TO TTY DEV ADDRESS 05 00824 | 
002375 000000 A 825 HUEF DATA 0 FLAG: IF ZERO, HROWR DEFAULT FOR SELC CNT 05 00825 
829 « INPUT DECIMAL NUMBER SUBROUTINE (DOUBLE. PRECISION). £05 00829 
B31 * *05 00831 
oe et a  ~83e2 g SEA RAN Es AS PADEE ARSED Asin ant end nes tunes statis iesedeh asi ieaeacenanes08 00832 
002376 000000 A 633 ENTR 0 05 00833 
002377 005001 A 834 IZA ZERO OUT DOUBLE PRECISION SuM, 05 00834 
635 STA OPSM. : | ; 0S 00835 


002533 032511 A 897 


UP<DATE BUFFER POINTER BY TWO. 


” 


- eos __ MAINTAIN If] RICTEST oes PAbE 15 

fF 002401 052466 A 8356 STA DPSM+1 0S 00836 
002402 OV2V00 A 837 IPD} CALL« INPB GET 1 CHAR, IN A REG, 05 00837 
002403 100411 A ; 
002404 OV1VU00 A 638 JmMP RTCT TERMINATION EXIT IF SS3 SET 05 v0638 
002405 0Uu0S27 A eee 
0024U6 005012 A 839 TAB 05 00839 
002407 00614U A 840 SUBI 0256 CHECK IF PERIOD 05 008640 
002410 0v0256 A — 
00241! OvIOLY A Bai JAZ IP04 05 00841 
002412 Ou245e A 
002413 005021 A B42 TBA 05 00642 
002414 006140 A 843 SUBI 0254 CHECK IF COMMA, 05 00843 
002415 000254 A ; 

1, 002416 OOL010 A 844 JAZ IP05 05 00644 

002417 OvedS7T A 1 

1 (002420 0u5021 A 845 TBA CHECK IF LEGAL CHAR. 05 00845 

002421 006140 A 846 SUBI 0260 05 00846 _{ 
002422 000260 A 
1002423 001004 A 847 JAN IPD3 05 00847 
On24e4 A 
“002425 052470 A 848 STA VALU 05 00848 
002426 006140 A 849 SUBI v12 0S 00849 

| 002427 000012 A : ee 
1002450 00100e A 850 JAP IPD3 05 00850 — | 
002431 002446 A . an | 
002432 012465 A 851 LDA DPSM 0S 00851 , 
002433 022466 A 852 LOB DPSM+1 05 00852 
002434 002000 aA 853 CALL XOIM, TEN MULTI OP SUM BY TEN 05 00853 
092455 003441 A 
002456 OvV2471 A 
002437 0U2000 A 854 CALL XDAD, VALU-1 ADD CHAR JUST READ 05 00854 
002440 003473 A 

Hbe°4 DO2467 A 
€02442 052465 A 855 STA DPSM 0S 00855 
002443 062466 A 856 STB OPSM+1 05 00856 ae 

 ©02444 0010 JMP Di G NE X HAR, 5 00857 #=x+#4| 
~ 902445 002402 A : : ; 
002446 002000 A 858 IPD3 CALL« OUTG ILLEGAL CHAR. MESSAGE 0S 00858 
002447 100406 A : 
002450 001000 A 859 JMP IPOC+1 05 00859 
002451 002377 A ; 
“002452 002000 A 860 TPD4 CALL* OUT ~ OUTPUT CR/L 05 00860 
. 002453 100402 A | 
002454 005004 A 8661 TZX PERIOD CHAR, 0S 00861 
0024 001000 A 862 JMP +4 05 0086e 
002456 002461 A : 1. 
002457 006030 A 863 IFDS LOXI 1 COMMA CHAR, 05 00863. 
002460 000001 A | 
002461 012465 A 6864 LDA DPSM 05 00864 a 
002462 022466 A 865 LOB DPSM+1 0S 00865 oe 
002463 001000 A 666 JMP x IPDC 05 00866 
002464 102376 A . a 
002465 000000 A 867 DFSM DATA 07070 05 00867 
002466 000000 A 
002467 000000 A | 
002470 000000 A 868 VALU DATA 0 | 05 00868 
00Cd71 OD0H0Te A 869 TEN DATA 10 05S 00869 a i 
_ BTL KIKI RRR IRR REIKI KKK ERA REE KKH EREEEERERRERKEREERERHEEKEOS 00571 
| 872 * CONVERT DOUBLE PRECISION OCTAL NUMBER TO ASCII DECIMAL 05 «00872 
73 * 00873 — 
BT RHI III HK HIRI KK IKK IKKE KEKE EERIE REE KER EER EKERERKEREKOS 00874 
002472 000000 A 875 CUNV ENTR 05 00875 
f 002473 072757 A 876 STX ADDR+1 ADDRESS OF BUFFER 05 00876 
| 902474 052675 A 877 STA SAVN TEMP STORAGE 

02475 062676 A 878 STB SAVN¢] 

02476 006030 A 7 LOXI BUFC Loc 0 WORD TABLE 05 00879 
002477 002663 A 
002500 072756 A 680 STX ADOR 05 00880 
002501 006030 A 81 LDxTI TBO LOC OF TABL 0S 00881 
002502 002627 A | : 
002503 072511 A 882 STX CONL +2: | 05 00882 | 
002504 O72e517 A 88S °° °° &STX CONS+2 05 00883 | 
002505 072526 A 884 STX CONG+2 > 05 00884 
002506 005004 A 885 TZX INTEGER COUNTER 05 00885 
002507 002000 A 86 Ni CALL XDSU, 0 UB, VALUE FROM TABLE 05 00886 
002510 003541 A . . 
002511 000000 A ; : 

002512 001004 A B87 JAN CONS a CHECK IF VALUE LESS THAN TABLE INTEGER 005 00687 
002513 002531 A 
002514 005144 A 8B8& CUN2 IXR INCR, INTEGER COUNT 05 00888 
# 002515 002000 A 889 N3 CALL XDSU, 0 SU8. VALU ROM TABLE 05 00889 
¥4.002516 003541 A : : 
002517 000000 A . 
004 A n+ ; 08 = 
002521 002524 A , | 
0025¢e2 001000 A 891 JMP cON2 NO 0S 00891 
3 002514 A ¢ 
-002524 002000 A 892 CON4 CALL XDAD, 0 ADD TABLE VALUE BACK 0S 00892 
002525 003473 A : : : 
002526 000000 A : 
0025¢7 0526075 A 893 STA SAVN SAVE VALUE 05 00893 
002550 062676 A 894 STB SAVN +4 05 00894  —__ 
00253) 077000 I UNS STX« 05 00895 | 
0025352 042756 A 896. INR ADDR 05 00896 
LDX CONI+2. 05 00897. 


‘ 


[pace 14 MAINTAIN III “RICTEST 


002534 005144 898 IXR aa : 05 00898 

002535 005144 899 IXR ee | 7 05 00899 _- 
r002e536 072511 900 , STX CON1+2 | | 05 00900 . 

002537 072517 9u1 STx CON3+2 ? 05 00901 

002540 072526 902 STX CON4S+2 05 00902 

002541 055001 903 LOX 1,1 | CHECK IF NEXT TABLE VALUE ZERO 05 00903 , 
002542 Ov1040 904 JXZ CON9 | | 05 00904 | 

002543 002551 } | | | | oe | 

002544 005004 905 TZX ZERO INTEGER COUNTER : 05 00905 — 

002545 012675 906 LOA SAVN RETURN VALUE © 05 00906 : 
1092546 022676 907 LDB SAVN+1 05 90907 si 
. 002547 001000 908 JMP CON1 | : | | 05 00908 — 3 

002550 002507 rs igo J As Seg . | 3 : 
002551 006030 909 CON9 LOXI | (BUFC) ADD ASCII NOTATION TO BINARY NUMBER 05 00909 
002552 002663 | 

002553 005002 910 1ZB BLANK OUT HIGH OROER DIGITS, 05 00910 

002554 01500u 911 CONL LDA 01 GET BINARY NUMBER 05 00911 

02555 001010 912 JAZ CON7 a | | oy 05 00912 

002556 002573 | : oes io ie 

102557 005322 913 DBR | 7 ee 05 00913 

002560 006120 914 CUNG ADDI 0260 ADD ASCII CHARACTER ZERO. 05 00914 

002561 000260 

002562 055000 915 STA 0,1 7 : | 0500915 

002563 005144 916 IXR ee aes . | Ree ns ee ee ae 05 00916 

002564 005041 917 TXA | | | ie ae ee bee Bs 05 00917 

002565 006140 918 — SUBI —s_s« (BUFC +9) CHECK IF 9 CHARACTERS CHECKED, . : 05 00918 
r 002566 002674 . 

002567 001010 919 JAZ CONS 05 00919 

002570 002603 . = 

002571 001000 920 JMP ~ CONL : vee | 7 05 00920 
002572 002554 : | ee te ee ee i We 

002573 001020 921 CONT JBZ aod | — ace me che ss «OS 00921 

002574 002577 | | | 

002575 001000 922 JMP CON6 : 05 00922 


002576 002560 
02577 006120 
- 002600 000240 


00983 


924 JMP ss CON6 42 7 | See UR SB 9g -pogaa | 


See bee ee ele eieslee sl eels os cael vee eos eos oss eee ee bea stsleeel eas os 


002601 001000 
N026U02 00256e | 
002603 006030 925 CUNS LOXI (BUFC@1) PACK ASCII CHARACTERS | ; 05 00925 
002604 002662 } 
902605 015000 526 CUi1 = LDA 0-1 : ET HIGH ORDER CHAR ie ay 05 00926 
902606 005144 927 IXR ag 3 ag | i — 05 00927 
002607 004250 928 © LRLA 8 7 | ‘ | “05 00928 
002610 125000 529 ADD 0,1 GET LOW ORDER CHAR, 0S 00929 
002611 005144 930 IXR 0S 00930 
902612 057000 931 STAx ADDR+1 STORE CHAR, IN BUFFER , 05 00931 
002613 042757 932 INR ADDR+1i | _ ok 05 00932 oe 
002614 005041 933 TXA | 05 00933 pees 
002615 006140 934 SUBI (BUFC+9) CHECK IF BUFFER BACKED | 05 00934 LW 
f 002616 002674 | | ae a | oe | ge | Te es ee : 
(002617 001010 A 935 > JAZ aed - | | a. - - 05 00935 
002620 002623 5, ice: 7 ioe cteed : Yee 7 ee 
N026e1 001000 936 JMP co11 G NEXT CHARACTERS, 05 00936 . 
002622 002605 . | -¥ : 
002623 002000 937 CALL IUFR UPDATE FRC ELAP, TIME CNTR. IF NEC 05 00937 
D02624 001742 : | oe : ie | | 
002625 001000 938 JMP * CONV . a: | | 05 00938 
002626 102472 | | | | ead hes 2s ) ae 
002627 005753 A 939 TBDC DATA 05753,060400 100000000 | 05 00939 
002630 060400 A 
002631 000461 A 940 DATA 0461,013200 10000000 : 05 00940 
|. 002632 013200 A 2 | ae ae | or s ont | 
| 002633 000036 A 941 DATA 036,041100 1000000 : a ts 05 00941 
002634 041100 A | 
002635 000003 A 940° ~~ DATA 03, 03240 To00007 05 00942 
002636 003240 A | 
002637 000000 A 943 DATA 0,023420 10000 05 00943 
002640 023420 A | ; : : 24 : : eK 
002641 000000 A 944 DATA 0701750 1000 | | a 05 00944 
002642 001750 A : | 4 : | Z Oo 
6 00000 A DATA 70144 100 05 00945 
002644 000144 A | 
002645 000000 A 946 DATA 0,012 10 | 05 00946 
002646 000012 A : > = : ey : | 
002647 000000 A 947 DATA 0,01 Pe 4 i | | 05 00947 
| 002650 000001 A ‘cane : et 4 , | = 
002651 000000 A 946 — DATA 0,0 0 05 00948 
002652 0V0000 A . 
002653 949 BUFO BSS 5 05 00949 
fF 002660 120240 A 950 DATA ' 20 ABE 05 00950 
4% 002661 000000 A , ; ote Cs | a | . | 
| 002662 000240 A 951 © DATA 0240 . | a ; . op oe 3 05 00951 
f 002603 95e BUFC  6SS 9 | 05 0095e 
002674 000000 A 953 FLGC DATA 0 | 05 00953 | 
002675 000000 A 954 SAVN DATA 0,0 | 05 00954 
002676 000000 A | ie en, | | | : | 
002677 000000 A 955 TIME DATA 0 TEMP. FR TIME | a 05 00955 
002700 000000 A 956 CONT DATA 0 ~ TIME COUNTER | | 05 00956 be 
002701 8 BSS ~ 34 ME BUFFER FOR e ME PERIOD COUN 05 00957 
# 002743 000000 A 958 SUMH- DATA 070 DOUBLE PRECISION ADD 7 05 00958 
§ 002744 OU0V00 A 
| 002745 000000 A 959 TWNT DATA 0720 05 00959..—™” 


f 002746 Ovo0ad A 
002747 000006 A 960 SIXM DATA 6 : sac ea 05 00960 


ae MAINTAIN II1 RTCTEST PAGE 15 > 
002750 000000 A 961 VAR DATA 0,0 05 00961 
ONe751 040000 A : 
00e752 Hvu0000 A %6e HVAL DATA TOLERANCE HIGH 05 0096e.. 
002753 OVODNU A 
002754 000000 A 963 LVAL DATA 0,0 TOLERANCE LOW 05 00963 
002755 000000 A 
002756 964 ADDR BSS 2 STORAGE LOCATIONS 05 00964 
966 SSUERAE PERSSSANEONS RS ASSARREN SASS SARA MAS SN CENSRENAS EE ANTS NE SA RER SES * EAE OD 00966 
967 * TIME DELAY OF 1/4 SECOND *05 00967 
968 * X = NO OF 1/4 SECONOS TO DELAY *05 00968 
969 * CALLING SEQ, *05 00969 
970 x LOXI NUMBER *05 00970 
971 * CALL TOSC *05 00971 
972 *k *05 0097e 
r , DTS HI HII IKI I III RIOR IR KIO TOR TOR IR IRI IRR REE KEE KEKE HE HKEREOS 00973 
4002760 000000 A 974 FUSC ENTR 05 00974 
0027613 053v01 A 975 STA TOSA *SAVE REGISTERS 05 00975 
002762 063002 A 76 STB TOSA+14 05 00976 
1002763 073003 A 977. STX TOSA+2 05 00977 
- 002764 002000 A 978 TUS1 CALL HLFS 0S 00978 
002765 003004 A 
002766 033003 A 979 LOX TOSA+2 05 00979 . 
002767 005344 A 980 DXR X = NO. OF 1/4 SEC, TIME OUTS. 05 00980 : 
002770 073003 A 981 STX TOSAte2 | . 05 00981 
002771 001040 A 982 JXZ TOSe 05 00982 i" 
002772 002775 A di 
002773 001000 A 983 JMP TOS! 05 00983 
002774 002764 A i. 
002775 013001 A 984 TOS2 LDA TOSA RESTORE REGISTERS 05 00984 
002776 023002 A 965 LOB TOSA+1 05 00985 
002777 001000 A 986 JMP ® TOSC 05 00986 
003000 102760 A 
003001 000000 A 987 TDSA DATA 0,0,0 05 00987 
003002 000600 A * 
003003 000000 A ae 
003004 000000 A 988 HLFS ENTR ; 05 00988 
003005 011173 A 989 LOA COMP ee 05 00989 
003006 001010 A 990 JAZ xo 05 00990 | 
003007 00301e A 
003010 006010 A 991 LDAI 15632 0S 00991 
003011 036420 A 
QOS012 006120 A y ADD 0684 D5 00992 
- 003013 024674 A : . Se, is 
1 003014 005014 A 993 TAX 1/4 SECOND TIME-OUT 05 00993 - | 
003015 001040 -A AL Y JXZ* AL 05 00994 
003016 103004 A 
003017 013021 A 995 LDA x2 05 00995 
003020 013022 A 996 LDA *+2 0S 00996 Wea, 
003021 013023 A 997 LDA *+2 05 00997 | 
003022 013024 A 998 LDA *+2 05S 00998 
003023 005544 A 999 DXR 05 00999 
003024 001000 A 1000 JMP HLF 1: 05 01000 
E 003025 003015 A 7 s | 
003026 151305 A 1002 MESI DATA "REAL TIME CLOCK TEST',0106612,0 05 01002 
0030e7 140714 A 
003030 120324 A 
005031 144715 A 
| 003032 142640 A 
. 003033 141714 A 
0030354 147705 A 
005035 145640 A 
003036 1523505 A 
903057 151724 A 
403040 10661e A . 
HOS041 000000 A. . 
003042 144657 A 1003 MES2 DATA "T/0 INSTRU N AND INTERRUP) 20106612,0 05 01003 
0903043 147640 A i : 
003044 144716 A 
0030465 151724 A 
003046 151325 A 
003047 141724 A 
005030 144717 A 
003051 147240 A 
003052 140716 A 
003053 142240 A 
003054 144716 A 
0035055 152305 A 
003056 15132e A 
003057 152720 A 
003060 152240 A 
#@ 003061 152505 A 
44003062 151724 A 
003063 106612 A 
005064 QU0000 A 
003065 142722 A 1004 MESS DATA TERROR NO, = ',0 05 01004 
003066 151317 A = 
¢ 003067 151240 A 
003070 147317 A 
| 005071 127240 A 
003072 13fO40 A 
003073 OVOUNO A 
; 005074 153501 a 1005 MESG4 DATA "VARIABLE',0 -05 01005 
003075 151311 A . 
003076 140702 A 
A 


aad 


f 003077 146305. 


| PAGE 16 MAINTAIN IT] __RICTEST 


003100 000000 | 
003101 120411 1006 MESA 
003102 147324 
003103 142722 
003104 153401 
003105 146240 
003106 144716 
003107 152305 
005110 15132e 
003111 152720 
003112 152240 | | ae 
003113 141719 | | : ae 
003114 142703 
005115 145640 
"003116 106612 
003117 000000 
00312¢0 146705 
T 003121 146717 
DO3122 151331 
D03123 120317 
0031e4 153305 
003125 151306 
0031¢c6 146317 
NOZie7 153640 
603130 144716 
003131 152305 
003132? 151322 
003133 152720 
003134 152240 
003135 141710 
003136 142703 
003137. 145640 
003140 10661e 
003141 000000 
005142 143322 
003143 142705 
003144 120322 
. 003145 152716 
003146 1473511 
003147. 147307 
003150 120305 
903151 147725 
© 903152 147324 
» 903153 142722 
003154 120303 
003155 144305 
003156 141713 
003157 1u6612 
003160 000000 
003161 144716 
EF 003162 150325 
| 003163 152240 
' “9031604 143322 
003165 141640 
003166 144716 
003167 141722 
903170 142715 
003171 142716 | 7 
003172 152323 . | | | | ee | 
DOSE a LOOSE Oe a he ee et ee ee ie ge ade retin eee ren Eye Me ee eee ee es ee 
003174 142722 
003175 120323 
“bOS176 142703 


DATA ' INTERVAL INTERRUPT CHECK!',0106632,0 


ae a ee tanatete manta mt eet: 


FPP Pip YP Pir F&F Pir YS 


1007 MESS DATA "MEMORY OVERFLOW INTERRUPT CHECK ',0106612,/0 05 01007 


1008 MES6 DATA "FREE RUNNING COUNTER CHECK',0106612,0 05 01008 


1009 Mcs7 DATA ‘INPUT FRC INCREMENTS PER SECOND ',0106612,0 05 01009 qo 


903177 
903200 
005201 
003202 
003203 
003204 
003205 
003206 
003207 
003210 
003211 
003212 
003213 

003214 
003215 
003216 
003217 
003220 


ds 003224 


003222 


147716 
142240 
10661e 
000000 
144716 
150325 
152240 
141301 
151711 
141640 
144716 
152305 
151522 
152720 
1523235 
120520 
142/722 


120323. 


142703 
147716 


rPPrPpPr rrr Yr Yr rYT rr PP rr KP Pr KPT PP Yr Yr PrP YS r PP Yr Pp rrr rir rrr Pr Pir Yr pPlrP rr PIP rrr Yr PIP rP Pir Fr PIP Fr Pi > F PlYr YP Pp 


1010 MES8& 


DATA 


TINPUT BASIC INTERRUPTS PER SECOND ',0106612,0 


0S 01010 


T-003223 1ad040 A Se ee ead 
003224 106612 A 
093225 000000 A 


(003227 141640 A 


003ee6 151324 A 101 15. 


003230 1523531 A ' : . So eae Te eee ek ; : | 

003231 150505 | 

003252 120275 

00325% 000000 
003254 144716 

003255 152505 
003236 151322 


A 
A 
A 
Al 1. 
A 
A 


% 


4 * 


005257 
003240 
003241 
003242 
003243 
003244 
003245 
003246 
003247 
003250 
003251 
003°52 


003253. 


003254 


- 3003255 


a 
i 


‘0032546 
003257 
0N3P60 
003261 
003262 
003263 
003264 
003265 
003266 
005267 
003270 
003271 
003272 
003273 
003274 
003275 
003276 
003277 
003300 
003301 


003303 


ise7eu 
152240 
152311 
146711 
147507 
120324 
142723 
132240 
106612 
QV00U0U 
144716 
152305 
1513526 
140714 
120524 
144715 
142722 
136640 
000000 
153311 
1446040 
151705 
146305 
141724 
120303 
147725 
147324 
156640 
000000 
144716 
152305 
151326 
140714 
120304 
144725 


140731 


>> Pir > lr > PiP > PF |> YF PIF PYF PP Pr PP PIP > FIP PP Pir > Yl Y 


A 


003304 120320 A 


003305 
003306 
003307 
003310 
003311 


142722 
144717 
142240 
144716 
120323 


A 
A 
A 
A 
A 


* 003312 142703 A 


003313 
003314 


003316 
003317 
003320 


| 003321 


003322 146305 a 


003323 
003304 
003325 
003326 
DC 
003330 
003331 


127275 
000000 


140703 
141705 
150324 


A 
A 


A 
A 
A 


MAINTAIN III 


1013 IM3 


1014 IM4q 


1015 IMS 


| 003315 152716 A 1016 IM6 


140702 A 


106612 
000000 


A 
A 


141305 A 1017 IM7 


143711 
47240 

152305 

151724 
0661 


003333 000000 


003334 


~ 00533 


103336 
003337 
0035540 
003341 
003342 
003343 
003344 
003345 
003346 
003347 
003350 
003351 
003352 
003353 


143322 
T4i67e 
120240 
000000 
146711 
147254 
000000 
151705 
141640 
106612 
000000 
124326 
124711 
144672 
000000 
144716 


A 


A 


A 


003334 153301 A 
003355 146311 A 
003356 142240 A 
- 003357 


003362 
003363 


0053 


/003365 


0603374 


00000 


005101 


063524 
005311 


00434) 
053461 


° 053527 


OSi7i? 
011172 
005311 


A 


1s 
[003360 000000 A 


A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 


PrP > PPP P| Yr PY Yr > Yi > F Ply PF YP 


1016 IM9 


~~ 
-_ 
<4 
Quai 
oe 


-_ 
coe 
-_ 

— 

~ 


1021 IMie2 


1022 MS16 


1024 % 
1025 BCNG 


1027. 
1028 


DATA 


DATA 


DATA 


DATA 


DATA. 


DATA 


DATA 


DATA 
DATA 
DATA 
ENTR 


INCR 
LLSR 


RTICTEST 


"INTERVAL TIMER= ',0 


"VII SELECT COUNT= ',0 


"INTERVAL DISPLAY PERIOD IN SEC,2',0 


"UNACCEPTABLE',0106612,0 


"FRC: 


TSE 


7010661 


"(VJTIs',0 


INVALID',0 


"BEGIN TEST',0106612,0 


Aa) 


ADJUST INSTRS, TO BIT SIZE 


i 


SET ANAI INST 


PAGE 17° 


05 01013 


0S 01014 


05 01015 


05 01016 


05 01017 | 


05 01018 


US 01019 


05 01020 
05 01021. 


05 01022 


05 01024 — 


a 


003302 150314 A — —— , ae | 


i 
| 


05 


01088 


on cemeneiradnmnntieshenenmnes atpemtan ania 


1116 *. 


“posaea 005511 A 1089 AOFA GET CARRY 05 01089 
03465 007400 A 1090 ROF RESET OF 05 01090 
003466 fesd77 A 1091 ADD XDAD+4 ADD HI A 05 01091 
003467 125000 A 1092 ADD Or1 ADD HI B 05 01092 
003470 043473 A 1093 INR XDAD SET RETURN 05 01093 
903471 033476 A 1094 °° °  #LDX  XDAD+3 RESTORE XR 05 01094 
003472 001000 A 1095 JMP 0 RETURN | 05 01095 
003473 000000 A | : : 
AO SATS A LUD KDAD COU Red NTR —————«s OSG CO9GDO™~C— 
003474 001000 A 1097 JMP n=19 0S v1097 : 
003475 003451 A 
003476 000000 A 1098 °° #DATA  O,O YEMP STORAGE = =  — °° °°... ~@5~01098 | 
| 003477 000000 A 
1100 * cS 01100 
iiot « 01101 
1102 * XDCO FIXEO POINT DOUBLE PRECISION COMPLEMENT ae 01102 
1103 * ; 05 01103 
- 003500 000000 A 1104 XDCO  ENTR 05 01104 
». 003501 005211 A 1105 CPA 05 01105 
003502 001020 A 1106 JB2 a+8 05 01106 a8, 
003503 N0S512 A 
003504 00S522e A 1107 CPB 05 01107 
003505 00512e A 1108 IBR 05 01108 
~~ 003506 004041 A 1109 LRLB i 65 01109 
003507 004141 A 1110 LSRB 1? 05 01110 
003510 001000 A 1111 — JMPx XDCO 05 O14111 
003511 103500 A | 
003512 005111 A 1112 IAR 05 “lille 
005513 OUNUV16 A 1113 XDLC DATA DIVIDE LUOP COUNT (ALTERED) 05 01113 
003514 ra-1uow0GA-TTLA-XOSE—DATA—OTOGOHT——— STEN CHLTERED) OF O1114 
1115 * 05 01115 
XDSU FIXED POINT DOUBLE PRECISION SUBTRACT 05 Ul116 | 


fied 


PAGE 28 MAINTAIN LIL SIVIEO! z renee Beene a ete 
—f 003375 0uSS11 A 1038 DAR : | : | 05 vi038 
} 003376 053513 A 10359 STA XDLC SET LOOP COUNT FOR DIVIDE 05 01039 | 
003377 001000 A 1040 JMP*x = -BCNG ae 7 | " 05 01040 
093400 103360 A | | 
1042 x | 05 01042 
i. 1043 * | | | —_ x05 01043 
1044 * DOUBLE PRECISION INTEGER MULTIPLY BY ADDITION x05 01044 
x 1045 * CALL XDIM,MULT WHERE MULTIPLIER MUST BE A SINGLE WORD + #05. 01045 
O03S40T 073450 A X ; : : ~ 
003402 053444 A 1047 STA XD1S 05. 01047 
003403 053440 A 1048 STA XDIS+2 05 01048  __ 
003404 063445 A 1049 STB XDIS+4 05 01049 
003405 063447 A 1050 STB XOIS+3 05 01050 
, 005406 023441 A 1051 LDB XO IM | en 05 01051 
003407 036000 A 1052 LOX 0,2 SET NO. OF TIMES TO ADD, 05 010S5e 
1003410 035000 A 1053 LDX 0,1 09 01053 
003411 043441 A 1054 INR XDIM 05 01054 
 po3s4i2 001040 A 1055 JXZ XD13 CHECK IF MULTIPLIER ZERO. 05 01055 
003413 003430 A 7 7 
003414 005344 A 1056 XDT2  DXR 05 01056 
003415 001040 A 1057 JXZ xDI4 05 01057 
003416 003435 A 
003417 013444 A 1058 LDA XDIS 05 01058 
p03420 023445 A 1059 LOB XDIS+1 05 01059 
003421 002000 A 1060 CALL XDAD,XDIS+¢2 0S 01060 
003422 003473 A : 
003423 003446 A 
003424 053444 A 1061 STA XDIS 05 01061 
003425 003445 A 1062 STB XOIS+1 05 0106e 
003426 001000 A 1063 JMP xDI2 05 01063 
003427 003414 A 
003430 005001 A 1064 XO0I3  TZA 05 01064 
003431 005002 A 1065 TZB 05 01065 
003432 033450 A 1066 LOX XDIS+4 05 01066 
003433 001000 A 1067 JMP * XDIM 05 01067 
003434 103441 A 
003435 013444 A 1068 XUT4 LDA XDIS 05 01068 
003436 023445 A 1069 LOB XD1S+t 05 01009 
003437 033450 A 1070 LOX XDIS+4 05 01070 
003440 001000 A 1071 JMP 0 05 01071 
003441 000000 A 
“003444 1072 XDIM BES o. | 05 01072 
| 003442 001000 A 1073 JMP XOT4 (05 01073 
103443 0U3401 A- + 
- 003444 000000 A 1074 XDIS ~~ DATA 070707070 0S 01074 
003445 000000 A 
003446 000000 A 
003447 0V0U000 A oad 
003450 00000u A 7 4 
| 1076 * 05 01076 
1077 * XDAD 01077 
7. 1078 * 05 01078 
903451 073476 A 1079 STX XDAD+3 SAVE XR 05 01079 
003452 007400 A 1080 ROF | RESET OF 05 01080 
003453 033473 A 10461 LOX XDAD | 05 01081 
003454 035000 A 1082 LOX 0,1 XR>ADDR OF HI 8 05 01082 
003455 053477 A 1083 STA XDAD+4 SAVE HI A 05 0108 
003456 005021 : 1064 TBA GET LO A | | 05 01084 
' 003457 125001 1085 ADD l,l ADD LO B . 05 01085 
- 003460 006150 R-1086-KDRE— ANAT ——OTTTTT -  16N BIT °° °°” ” 05 01086 
003461 077777 A 
003462 005012 A 1087 TAB SAVE RESULT 0S 01087 


, 003515 073544 
003516 007400 
003517 033541 
003520 035000 
0035e1 053545 
003522 O005vU21 
0035e3 006110 
003524 100000 
0035e5 145001 
003526 006150 
003527 O77777 
003530 005012 


- 6003551 005001 


03530 005711 
0035353 007400 
003554 123545 

145000 

| $o3sse 043541 


03537 053544 
003540 001000 
003541 000000 


003541 000000 
103542 001000 
103543 003515 
003544 000000 
003545 000000 
003546 010422 
603547 006150 
003550 010000 
p03551 001010 
D05552 000500 
003553 006010 

03554 000473 
. 55 050374 


i 0 001000 

* 903557 000500 
; 003546 

ENTRY NAMES 

EXTERNAL NAMES 

Ks BOLLS 

900442. A SCON 


003360 A BCNG 
002605 A CO11 
(902515 A CONS 
“902573 A CONT 
002700 A CONT. 
002367 A EMFR 
- 901202 A ERRS - 
001201 A FFLG 
903015 A HLF1 
0014677 A 110 
001644 A I14 
001656 A 1161 
901475 A 3 
01440 A IS) 
01442 A 16 
01454 
002271 A IC3 
002332 A IC7 


i 
{ 
> 


b03274 A IMS 
000410 [NPA 
000414 A INPE 
002357 A InXxT 
D024 A P 
001335 A ITT. 


003065 A MES3 
003161 A MEST 


000402 A OUTC 
000406 A QUTG 


001606 A IXi2_ 


PP PP PIP PrP rl > PPP PP Pl PrP Pl YP PS P| > 


200441 A SMEM__ 


102361 A TINT ~ 
| 03343 A IMi1 


1134 LOX XDSU+3  *- RESTORE XR | a ee 05 01134 
113 JMP 0 RETURN | 05 01135 
1136 ORG xo} 05 01136 
1137 xXDSsuU ENTR Th = o : 0S 01137 
1138 JMP weet : : a ae og ae 05 01138 
1139 DATA 0,0 TEMP STORAG 05 01139 
1141 Me3 LDA SLWE JS IT FROM Me OR M 0 O08 01141 
1142 ANAI 010000 : ge D 05 01142 
1143 JAZ 0500 FROM M2 0 05 01143 
) 
FROM MS 
114 END Mes D OS 01147 
000471 A SDCT 000440 A SFLG 000422 A SLWE 
000424 A $MSM 002374 A STTY 002756 A apoR 
002663 A BUFC 002653 A BUFO 00 A 
001173 A COMP 002507 A CON 002514 A Sane 
002524 A CONG 002531 A CONS 002560 A CON6 
002603 A CONS 002551 A CONS 002554 A CONL 
002472 A CONV 002373 A D60 002465 A DPSM 
002371 aA EMVI 001174 A ERRC 001220 A ERRP | 
002370 A ESFR 002372 A ESvi 000423 A ESZC rane ae ae ares 
002674 A FLGC 002345 A FRCM 002375 A HDEF 7 | ee ae a Ny 
003004 aA HLFS 002752 A HVAL 001506 A Ii 
001730 A T1i01 001736 A T10T 001607 A lil 
001634 A 1141 001775 A 115 002000 A I1i51 
001653 A I162 001661 A 117 001417 A Ie 
002207 A 130 0022e7 A T3011 00T431 47 Pep 2 Me aT A 
002033 A 150 - 002114 A I52 002200 A 152 . Ce Piha! Oe She AM Sn, 
001527 a 17. 001563 A 170 001526 A 171 ee Sater a Sg BAR 
001 A 19 002254 Ci 002264 A 2 
002301 A IC4 002315 A ICS 002325 A IC6 
002342 A ICB8 002235 A ICOM 002363 A IFM 
002360 A ILNG 003234 A IML ~~ 003340 10 
003347 A IMt2. . 003251 A. IM3 003262 A IMG” 
003315 aA IM6 003325 A IM? 003334 A IM9. - 
0004 A INPB 000412 A INF 000413 NPD 
000415 A INPF 000416 A INPG 002362 A INTT 
002402 A IPD 002446 A IPD3 002452 A zeDS 
002576 A “Is be 001 67. SCP 003 y i 
001742 aA IUFR 002365 ‘ IvM 001574 r IXii 


Py PS Pri> PP Pir > PP PF PI> YF YP 


MAINTAIN III RTICTEST PAGE 19 


1117 * : a eee . 8 05 01117 
1118 STX XD8U+3 SAVE XR 05 01118 
1119 ROF RESET 0 05 01119 
1120 LDX XDSU 05 01120 
1121 LOX 0,1 XR-ADDR OF HI B 05 Oitat 
ile STA XDSU+4 SAVE HI A. | | | | 05 01122 
1123 TBA _ | mA | 05 01123 
1124 XDS4 —ORAT 0100000 SET SIGN FOR CARRY __- | 05 01124 
1125 SUB 1,1 SUB LO B 05 01125 
1126 XD0S2 _ ANAT 077777 MASK SIGN 05 01126 
1127 TAR a GAVE RESULT 7? . 05 01127 
1128 TZA_. eal _ oe ee: 05 01128 
1129 SOFA GET CARRY 05 01129 
1130 ROF RESET OF 05 01130 


002356 


003074 
003203 


000403 


000407 A OUTH . 001200 A PINT 000502 A PNTR 


XDSU+4 ADD HI A | | 0S 01131 
: "sub HI 6 catiea | 
INR XDSU SET RETURN a ne 05 01133 


A LERC oo A LOOP 002754 A LVAL 
AW 003 i q 2 
A MESG Tree A MESS 003142 A MES6 
A MES8 _003101 A MESA 003226 A _MS15 
UTA 000401 A OUTE 
900404 A OUTE 000405 A OUTF 


‘ OuTO 


0012354 A RT10 
000663 A RTC2 
001040 A RTC6 
000654 A RTCL 
000652 A RTCP 
001056 A RTTC 
0004¢e1 A SSWI 
000420 A TDOLY 
eA, A TOSC 


‘ oo2470 A VALU 
+ 003473 A XOA0 


003444 A XDIS- 
003514 A xXvDSbB 


LITERALS 
POINTERS 


001302 A RT13 000047 A RTC 000562 A RIC 


000713 
001160 
000602 
000527 
002675 
00274 
002764 
002471 


002750 
coke 


103513 
003541 


A RTC3 000751 A RTC4 001027 A RTCS 
A RIC9 000642 A RTCF 000573 A RTCK 
A RTCM 000636 A RTCN 000647 A RICO 
A RTCT 001175 A RTSA 001014 A RTTA 
A SAVN. 002351 A SELC 002747 A SIXM 
A SUMH 002701 A TABT 002627 
A TDS1 002775 A TOS2 003001 A TOSA 
A TEN 002677 A TIME 001176 A _TMSV 
002355 A UFRC 
902347 A VIIF 003460 A XDAg~ 
A XDAX. 003500 A X0CO 003401 A XDI4 
A X013 003435 A XOI4G 
A XDLC 003526 A XDS2 003523 A XD84 
A XDSU 


A VAR 


UPAGE e 


0 


000502 102374 
000503 102756 
000504 102757 
x * UNREFRENCED SYMBOLS « « 


“TOs 


953 


Be 
963 
960 

BT 


wen DEE 
] 2 


A 


‘ 
t 
i 


875 


.=—KOTI—— 
7. xosu 


SDCT 


FLGC 
INPC 
LVAL 
SIXM 
TOUT 


| * * PROGRAM 


BCNG 
CONV 
ERRS 


HLFS — 
110. 
ICOM 


INPb 


IPDC 


IUFR 


OUTA 
OUTC 
OuTD 


OUTE 
_Sswt 
Ld 


XDAU 


eee 


MAINTAIN 


SFLG 


IT] 


HVAL | 


INPO 
OuTB 
SUMH 
TWNT 


100 


587 
_ 84 


77 
957 
961 


/ SUBROUTINE ENTRY POINTS 


-LDe 
= De 
-LD= 
ef De. 
“LDe-. 
“LD= . 


714 


210 


627 


786 '& 


837 
442 
636 


787 
“ya 07 


161 
497 


S22 


714 


408. 


855 
“LDe- 
712 
214 


Ald 


-=LD0e- 
T2e2 
-LD@= 
406 


—SL0- 


627 


606 
671 
270 


595 
432 


nk 


724 
Y Aly 
856 
375 
748 
243 


223 
699 
750 
563 
407 


“$48 


*LD- 
aa 


598 


938 


229 


461 


O56 ne 


ste 


236 


686. 


Py. 
76 
4q 


480 


300 


931. 


934 
713 


“De 


938 


“LDe« ; 
689. 


e251 


229 - 
~ 7§6-: 


594 


-LDe : 


623). 
ee ne 


RICIES 


715 


233 


265 


471 


260 


754. 


260 
789 


624, 


a ., 
* T1625 00% 
_INPF. 


OUTH 
TOLY 


e70 


723 


304 


276 


210 


A472 


280 


es 


“956 


526 «19 
86. _INPG. 


86 
109 
955 


427 


725 


379 


864. we 


279 


260 


799 


~ CONT 


PNTR 
TIME 


294 


654 


20.799. 


494 


=ae 


320__ 


ae 


91 


80 


546 
3268 


342 


107 


1060 


327 


ESZC 


INPA 
TX11 
RTC9 
TMSV 


355 


655 


475. 


632 


| MAIivTAIN III RTICTEST PAGE ioe © 
738 152 -LD- 736 : | _ % ; 
— 475 6 -LD= 470 | ees 
Si?) 17 “LD= 476 478 | 3 
537 170 “LD= 533 667 760 | | ‘ 
516 I71 “LO- 4&1 | ; 
480 18 -LD=- 485 | | | | | | a 
773 «=IC1 -LDe- 770 776 7 
777 +=ICe -LD- 774 
780 IC3 -LD- 783 
784 Ic4 -LDe- 781 
792 «=IcS “-LD- 795 
796 IC6 -LD- 793 
799 IC? eLD=- 802 
BR 803 Ic8 “LD= 800 
i, 765 ICOM “LD=- 680 747 786 = 804 
} | 817 IFM -ST- 389 390 409 410 -tLD= 792 #4796 
© 815 TINT “ST- 517 -LO- 523 #4544 591 738° 
614 ILNG “8T=- 464 Si2 -7L0= 473 \ ; 
1012 IMi eLD= 430 3 
1019 IM10 “LD= 695 718 
“020 IMi1 “-LD- 10S = 728 
"$021 IMie2 -LD= 708 : 

1015 IM3 -LD= 440 
r10i4 Ima =[D- 444 a 
(1015 IMS -LD- 459 
} 1016 IM6 “LD= 488 496 

1017 IMm7 -LD- 534 

1016 IM9 “L0=- 685 

81 INPB -LD- 148 659 837 
~ 616 INT -ST=- = 437 443 S06 -LD= 466 #4477 560 735 
— 613 INXT “ST- 545 593 740 LD= 577 #590 


99 420 
258 633 
Tel 730 

97 398 
247 
343 645 


759 
650 
937 


41% 


571 


704 707 710 717 


141 151 
143 147 
460 489 
365 
858 
575 


152 
161 


497 - 


329 


378 
236 


686 


429 
238 


693 


664 681 860 
303 331 363 
696 703 706 705 


382046392041 444 


bes 


360 


357 


480 


838 


550 


 —7T14 


220 228 


a se aa 


Wie ieee 


= Pl 


PAGE 22 
987 USA 
974 TDSC 
bed TEN 
B11 UFRC 
809 UVIL 
8668 VALU 
807 VIIF 

1086 XDA2 
1096 KOAD 
615 XDAX 
1104. x0CO 
1046 XDTL 

1056 XdT2 

“1064. XDI 

‘Ti0e8 xora 

1072  XvIM 
1074 XbIS 
1113 XOLC 
1126 XDSe 
1124 XDS4 
1114 X0SB 
1137  XDSU 


7 
MAINTAIN 12] 


976 «977 


213 222 
648 °LDe= 
619 -LD- 
395415 
1083 1093 
~LD- 388 
1047 1048 


fi22 1133 


981 
259 


646 


617 


416 


-LDe@#- 


396 
1049 


-LDe@- : 


RICTEST 


LLD= 979 984. 985 
283 298 317 986 
790 
768 


“LD= 468 469 780 


766777 790 196 654 852 1060 1081 1091 


408 417 473 771 853 1051 1067 
“1050 1061 1062 -LD= 1058 1059 1060 1066 1066 


“480 773 780 792 709 866 669 1180 i131 


